Erreur d'execution '91
Bonjour à tous, je suis quelque peu nouveau dans le monde du VBA donc voici mon problème.
J'ai écrit ceci:
Sub Bouton()
Dim Creation(), Ligvide As Integer
With Sheets("Index fraise")
Creation = .Range("K7:T7").Value
End With
With Sheets("Ref fraise")
Ligvide = .Columns("A").Find("", .Range("A" & .Cells.Rows.Count)).Row
.Range("A" & Ligvide).Resize(1, 10) = Creation
MsgBox " outil enregistré "
End With
Exit Sub
End Sub
Sub Bouton1()
Dim Creation(), Ligvide As Variant
With Sheets("Index foret")
Creation = .Range("H7:N7").Value
End With
With Sheets("Ref foret")
Ligvide = .Columns("A").Find("", .Range("A" & .Cells.Rows.Count)).Row
.Range("A" & Ligvide).Resize(1, 7) = Creation
MsgBox " outil enregistré "
End With
Exit Sub
End Sub
Le problème vient du faite que ma première macro est bonne mais pas la suivante. Ce programme sert à enregistré des données dans une feuille(Ref fraise ou Ref foret) depuis des listes déroulante. J'ai juste changé le nom des feuilles et l'emplacement du tableau et la il me marque "Variable objet ou variable de bloc With non definie" dans la seconde partie. je ne sais vraiment pas pourquoi.
Merci de votre aide
Bonjour,
Fais un essai après avoir ajouté un en-tête en colonne A de la feuille "Ref foret".
A+
Nickel c'est ça.
Merci a toi