Remplissage d'une cellule suite à une recherche de contenu
Bonjour,
Je cherche à modifier le statut d'une commande pré-enregistrée dans un tableau à l'aide d'une macro VBA.
Dans l'exemple ci-joint je souhaite que la macro recherche dans le tableau la commande renseignée en C2 sur ma page de saisie et modifie le statut de celle-ci de "En cours" à "Livré".
J'ai écris le code suivant mais il ressort un message d'erreur... que je ne parviens pas à déboguer.
Pouvez-vous m'indiquer où est l'erreur et comment m'en sortir ?
Merci d'avance.
Sub Livraison()
Dim Comande As Variant
Dim y As Integer
Commande = Range("C2")
y = Sheets("Base_Donnees").Columns(1).Find(Commande, LookIn:=xlValues, lookat:=xlWhole).Row
Sheets("Base_Donnees").Cells("B" & y) = "Livré"
End SubEdit modo : merci de mettre le code entre balises SVP avec le bouton </>
Bonjour et bienvenue sur le forum
Modifie la dernière instruction ainsi :
Sheets("Base_Donnees").Range("B" & y) = "Livré"Bye :
C'était si bête que ça...et j'y ai passé tant de temps
Merci !!
Bonjour Yann et
Une petite présentation ICI serait la bienvenue
Si vous ne l'avez pas encore fait, je vous invite à lire :
- La charte du forum
- Quelques fonctionnalités du forum à connaître
qui vous aideront dans vos demandes et réponses sur ce forum.
Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)
Merci pour votre participation
Concernant votre code, je ferais plutôt ceci
Sub Livraison()
Dim Commande As Variant
Dim CelF As Range
Commande = Range("C2").Value
Set CelF = Sheets("Base_Donnees").Range("A:A").Find(Commande, LookIn:=xlValues, lookat:=xlWhole)
If Not CelF Is Nothing Then
Sheets("Base_Donnees").Range("B" & CelF.Row) = "Livré"
'ou
'Sheets("Base_Donnees").Cells(CelF.Row,"B") = "Livré"
End If
End SubA+
C'était si bête que ça...et j'y ai passé tant de temps
Merci !!