Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Je suis occupé d'avancer dans le classeur pour la sauvegarde et je coince dans le copier/coller.
Pourquoi?
Car je copie des valeurs en colonne pour les mettre en ligne à la suite en colonne "A".
Je souhaiterais conserver la mise en page mais pas possible de copier/coller ""colonnes"" vers...
Je suis occupé d'avancer dans le classeur pour la sauvegarde et je coince dans le copier/coller.
Pourquoi?
Car je copie des valeurs en colonne pour les mettre en ligne à la suite en colonne "A".
Je souhaiterais conserver la mise en page mais pas possible de copier/coller ""colonnes"" vers...
Bonjour,
J'ai un problème de compréhension sur une écriture VBA pour rechercher sur base de plusieurs critères .
Est-ce que je dois utiliser une autre méthode que rechercheV?
Voici le code qui fonctionne avec une variable mais j'aimerais afficher la valeur sur base de 4 variables et dès qu'il...
For i = 1 To 10
If wsCopy.Range("g" & i + 100) <> "0" Then
lDestLastRow = wsDestT.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row
wsCopy.Range("A" & i + 100, "K" & i + 100).Copy
wsDestT.Range("A" & lDestLastRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End If
Next
Bonjour à tous,
J'aimerais executer un copiè/collé en fonction de la collone G dans une plage définie.
Est-ce qu'avec la fonction For each cela est possible?ou Boucle?
lDestLastRow = wsDestT.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row
wsCopy.Range("A101:K110").Copy...
Bonjour,
Une question par rapport à ce code, je souhaiterais copier coller en valeur mais je ne sais comment... avec .value ou Pastespecial?
Set wsCopy = Workbooks("ClasseurA.xlsm").Worksheets("Suivi prod")
Set wsDest = Workbooks("CalsseurB.xlsx").Worksheets("Données")
lDestLastRow =...
Ah OK super merci cela fonctionne.
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
wsCopy.Range("A100:I100").Copy _
wsDest.Range("A" & lDestLastRow)
En plus , je ne suis pas obligé de copier toute la ligne en fait.
Cependant encore une question : lors du collage...
Bonjour,
J'ai exploité un partie de code sur le forum mais je ne comprends pas tout de ce code.
Le morceau de code qui coince se trouve dans la copie d'une ligne située à la 100éme ligne du classeurA à copier sur la feuille "Données" du classeurB à la dernière ligne vide.
Dim wsCopy As...
Re,
J'ai quand même creusé. ton code fonctionne depuis le début mais ma feuille est protégée donc j'ai rajouté :
ActiveSheet.Unprotect ("test")
.Sheets("Suivi prod").Range("D3:F3").Value = .Sheets("Suivi prod").Range("D3:F3").Value
Merci pour l'aide
voila j'ai essayer et cela fonctionne :
Range("D3:F3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
le code écrase la formule et quand la sauvegarde s'effectue le classeur source conserve la...
Quelle rapidité
il m'indique une erreur avec ceci :
.Sheets("Suivi prod").Range("D3:F3").Select = .Sheets("Suivi prod").Range("D3:F3").Value
J'ai aussi essayer avec Value au lieu de select.
merci
Bonjour,
J'ai déjà le code pour enregistrer un fihcier avec un chemin comprenant la date du jour via un bouton.
Voici la macro :
Dim chemin$
With ThisWorkbook
If MsgBox("L'encodage de votre rapport est terminé?", vbYesNo, "Validation") = vbYes Then
If Range("H3") <> "" And Range("B9") <> ""...
Bonjour,
Je n'arrive pas à concevoir le code VBA pour extraire les noms des images lorsque celle-ci ce retrouve dans le classeur. (elles sont biens dans des cellules distinctes mais sans le nom)
Quelqu'un peut me donner une piste?
Merci
Bonne journée
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.