Erreur 91

[jeanphi]

Bonjour


Au lancement de la macro ci-dessous, j'obtiens une erreur 91
Comment puis empêcher ceci?? Merci 🙁

Sub dernligne()

Dim derlig As Integer
Dim ws As Worksheet

derlig = ws.Range("B" & Cells.Rows.Count).End(xlUp).Row
ws.Range("B" & derlig & ",G" & derlig).Select
Selection.AutoFill Destination:=ws.Range("B" & derlig & ":B300"), Type:=xlFillDefault
Selection.AutoFill Destination:=ws.Range("G" & derlig & ":G300"), Type:=xlFillDefault
End Sub

 

[Pierrot93]

Re : Erreur 91

Bonjour JeanPhi

je pense que ta variable "ws", n'est pas initialisée... pour la feuille active, modifies comme suit :

Dim derlig As Integer, ws As Worksheet
Set ws = ActiveSheet
derlig = ws.Range("B" & Cells.Rows.Count).End(xlUp).Row

bonne journée
@+

 

[job75]

Re : Erreur 91

Bonjour JeanPhi,

Un petit point : déclarer derlig As Long (Integer ne va que jusqu'à 32767).
Bonne journée

Edit : bonjour Pierrot, c'est juste une remarque d'ordre général.

 

[Pierrot93]

Re : Erreur 91

Re, BONJOUR Job,

perso vois pas trop l'utilité d'une déclaration en "long", puisque la dernière ligne sera avant la ligne 300, enfin c'est juste mon avis....

@+

 

[jeanphi]

Re : Erreur 91

bonjour pierrot

et merci!
je vais tester tout çà
bonne journée