Bonjour,
Dans
Sheets("2. Relevé Equipem. Prise en ch.").Select
Range("G4:I2000").Select
Selection.Copy
Sheets("3. Création du planning").Select
Range("E9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
je voudrai remplacer le 2000 par la dernière ligne affiché non vide rencontrée. Je précise Affiché non vide est pas non vide. Il y'a des formules qui affiches un résultat vide et qui doivent être considérées comme vide. Comme je ne sais pas si le VBA fait la différence entre une cellule affichée vide et une cellule vide donc je précise.
Cordialement
Dans
Sheets("2. Relevé Equipem. Prise en ch.").Select
Range("G4:I2000").Select
Selection.Copy
Sheets("3. Création du planning").Select
Range("E9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
je voudrai remplacer le 2000 par la dernière ligne affiché non vide rencontrée. Je précise Affiché non vide est pas non vide. Il y'a des formules qui affiches un résultat vide et qui doivent être considérées comme vide. Comme je ne sais pas si le VBA fait la différence entre une cellule affichée vide et une cellule vide donc je précise.
Cordialement