B Bruce68 XLDnaute Impliqué 6 Janvier 2018 #1 Bonsoir à tous Range("L3").Copy Range("B" & k + 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Je voudrais changer ce qui est en rouge par Cells (4, x) Je vous remercie de votre aide
Bonsoir à tous Range("L3").Copy Range("B" & k + 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Je voudrais changer ce qui est en rouge par Cells (4, x) Je vous remercie de votre aide
Dranreb XLDnaute Barbatruc 6 Janvier 2018 #2 Bonsoir. Si k vallait 2, alors, pour que k + 2 vaille bien 4, vous pouvez faire : VB: Dim x As Long, x = 2 ' Colonne B Cells(4, x).Value = [L3].Value Vote positif 0 Vote négatif
Bonsoir. Si k vallait 2, alors, pour que k + 2 vaille bien 4, vous pouvez faire : VB: Dim x As Long, x = 2 ' Colonne B Cells(4, x).Value = [L3].Value
B Bruce68 XLDnaute Impliqué 7 Janvier 2018 #3 Merci dranreb ça fonctionne bonne soirée à tous Vote positif 0 Vote négatif