Résolution Erreur 91

Bonjour,

Je débute en VBA, et j'aurais besoin de votre aide pour finaliser ma base de données, que j'ai créée sur Excel 2007.

Mon fichier comporte plusieurs tableaux, large d'une case chacun. Certains tableaux sont composés de cases vides, et d'autres remplies.

J'aimerais créer une fonction qui recopie seulement les cases remplies dans un autre tableau, de façon à ce que le nouveau tableau ne comporte aucune ligne vide. Cela revient à créer un nouveau tableau identique au précédent, à la différence qu'il n'y a plus de ligne vide.

Voici le code que j'ai pour le moment :

Sub CopierColler()

Dim Choix_équipements As Worksheets
Dim ligne As Integer
Dim colonne As Integer

colonne = 339

For ligne = 16 To 100

    If Choix_équipements.Cells(ligne, colonne) <> "" Then
    Choix_équipements.Cells(ligne, colonne + 1) = Choix_équipements.Cells(ligne, colonne)
    End If

Next

End Sub

Lorsque je veux lancer cette fonction, l'erreur 91 apparaît sur la ligne 12. Malgré mes recherches sur des forums, je n'ai pas réussi à trouver une solution.

Pouvez-vous m'aider ?

Merci à tous,

Mim125

Bonjour,

un peu modifié pour trouver la dernière cellule de la colonne C (pour mon test) d'une feuille test "feuil1"

Sub CopierColler()
Dim ws1 As Worksheet
Set ws1 = Sheets("feuil1")
Dim desti
Dim ligne As Integer
Dim colonne As Integer
colonne = 3
last = ws1.[C65000].End(xlUp).Row
For ligne = 1 To last
  If ws1.Cells(ligne, colonne) <> "" Then
    Set desti = Sheets("feuil1").Range("D65000").End(xlUp).Offset(1)
    ws1.Cells(ligne, colonne).Copy Destination:=desti
  End If
Next
End Sub

Ca fonctionne parfaitement !

Merci beaucoup !!

Rechercher des sujets similaires à "tion erreur"