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