Discussion :

[grisan29]

bonjour le forum

ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
lig = Range("B19").End(xlDown)(1).Row
Range("B19").End(xlDown)(1).EntireRow.Insert
Range("C" & lig + 1, "I" & lig + 1 & ":J" & lig + 1).Copy Range("C" & lig)

ne veux pas que je lui ajoute les cellules K et L sans retourner a range

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C" & lig + 1, "I" & lig + 1 & ":J" & lig + 1).Copy Range("C" & lig)

par débogage, j'ai bien essayer de rajouter une ligne de code mais le résultat ne me convient pas

bonne journée

cordialement

Pascal

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C" & lig + 1, "I" & lig + 1 & ":L" & lig + 1).Copy Range("C" & lig)

[grisan29]

bonjour mercatog

un grand merci d'avoir résolu ma betise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C" & lig + 1, "I" & lig + 1 & ":L" & lig + 1).Copy Range("C" & lig)

moi je mettait des virgules après les +1 d'ou le probème

bonne journée

Pascal