K
kciop
Guest
bonjour,
je copie des cellules avec le code suivant ds une boucle mais je voudrai que lorsque je copie une cellule vide il me mette une valeur et non rien.parce que comme je l utilise ds une boucle apres la copie d une cellule vide la valeur suivante est decaller
je penser utiliser un if range(F51) <> "" then set plage2="vide"
elseif Set plage2 = WB2.Sheets(1).Range("F51")
a la place de Set plage2 = WB2.Sheets(1).Range("F51")
mais cela fonctionne pas
qui a une idée
merci d avance
Set Plage = WB2.Sheets(1).Range("C44:I44")
Set plage2 = WB2.Sheets(1).Range("F51")
Set Plage3 = WB2.Sheets(1).Range("L51")
Set Plage4 = WB2.Sheets(1).Range("H47")
Set Plage1 = WB2.Sheets(1).Range("F3")
With WB1.Sheets(1)
.Range("A65536").End(xlUp)(2) = T(I, 1)
.Range("D65536").End(xlUp)(2).Resize(Plage.Rows.Count, Plage.Columns.Count) = Plage.Value
.Range("F65536").End(xlUp)(2) = plage2.Value
.Range("M65536").End(xlUp)(2) = Plage3.Value
.Range("K65536").End(xlUp)(2) = Plage4.Value
.Range("B65536").End(xlUp)(2) = Plage1.Value
Set Plage = WB2.Sheets(1).Range("C44:I44")
Set plage2 = WB2.Sheets(1).Range("F51")
Set Plage3 = WB2.Sheets(1).Range("L51")
Set Plage4 = WB2.Sheets(1).Range("H47")
Set Plage1 = WB2.Sheets(1).Range("F3")
je copie des cellules avec le code suivant ds une boucle mais je voudrai que lorsque je copie une cellule vide il me mette une valeur et non rien.parce que comme je l utilise ds une boucle apres la copie d une cellule vide la valeur suivante est decaller
je penser utiliser un if range(F51) <> "" then set plage2="vide"
elseif Set plage2 = WB2.Sheets(1).Range("F51")
a la place de Set plage2 = WB2.Sheets(1).Range("F51")
mais cela fonctionne pas
qui a une idée
merci d avance
Set Plage = WB2.Sheets(1).Range("C44:I44")
Set plage2 = WB2.Sheets(1).Range("F51")
Set Plage3 = WB2.Sheets(1).Range("L51")
Set Plage4 = WB2.Sheets(1).Range("H47")
Set Plage1 = WB2.Sheets(1).Range("F3")
With WB1.Sheets(1)
.Range("A65536").End(xlUp)(2) = T(I, 1)
.Range("D65536").End(xlUp)(2).Resize(Plage.Rows.Count, Plage.Columns.Count) = Plage.Value
.Range("F65536").End(xlUp)(2) = plage2.Value
.Range("M65536").End(xlUp)(2) = Plage3.Value
.Range("K65536").End(xlUp)(2) = Plage4.Value
.Range("B65536").End(xlUp)(2) = Plage1.Value
Set Plage = WB2.Sheets(1).Range("C44:I44")
Set plage2 = WB2.Sheets(1).Range("F51")
Set Plage3 = WB2.Sheets(1).Range("L51")
Set Plage4 = WB2.Sheets(1).Range("H47")
Set Plage1 = WB2.Sheets(1).Range("F3")