[VBA] Macro copier ligne partiellement

Résolu/Fermé
schpop12 Messages postés 46 Date d'inscription dimanche 9 mars 2008 Statut Membre Dernière intervention 21 juin 2016 - 7 août 2008 à 17:15
schpop12 Messages postés 46 Date d'inscription dimanche 9 mars 2008 Statut Membre Dernière intervention 21 juin 2016 - 13 août 2008 à 08:12
Salut


j'ai cette macro

If Range("B37").Value = "BVéqu1" Then
Range("C34:I34").Select
Selection.Copy
Sheets("Assemblage de bassins").Select
Range("C40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If

qui permet de copier ma ligne 34 à la ligne 40. Je copie les valeurs de C34 à I34. Je voudrai exclure la valeur qui ce trouve en H34 et que les valeurs se copie à la suite.

Quelqu'un peur modifier la macro?
A voir également:

2 réponses

Bonjour,
Remplaces ton range par celui-ci:

Range("C34:G34,I34:I34").Select
0
ou plutôt:
Range("C34:G34,I34").Select
0
schpop12 Messages postés 46 Date d'inscription dimanche 9 mars 2008 Statut Membre Dernière intervention 21 juin 2016 6
13 août 2008 à 08:12
ok merci beaucoup ca marche
-1