Autres 'Résolu'Effectuer en VBA une recherche dans une colonne

[klorane]

Bonjour à tous,

je souhaiterais par une macro faire une recherche:

1 - Rechercher la valeur N2 de la feuille 1 dans la colonne A de la feuille 2
2 - Si trouvée : la cellule en colonne B en face = valeur de B + 1
exemple: rechercher peugeot en N2 dans feuil2. colonne A -> valeur de B5 en feuil 2 = 4+1

si marque non trouvée en feuil2 une box s'ouvre en indiquant un message d'erreur par exemple : Tesla non trouvée

Fichier joint pour avoir une base

Merci et bonne journée

Klorane

 

[Eric KERGRESSE]

Bonjour,

A tester :

 

[mapomme]

Bonjour à tous ,
Un code :

Sub Bouton1_Clic()
Dim xrg As Range, marque
   marque = Sheets("Feuil1").Range("n2")
   With Sheets("Feuil2").Columns("a:a")
      Set xrg = .Find(What:=marque, After:=.Cells(Rows.Count), LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
   End With
   If xrg Is Nothing Then
      MsgBox marque & " :   non trouvée.", vbCritical
   Else
      xrg.Offset(, 1) = Val(xrg.Offset(, 1)) + 1
      MsgBox marque & " : la valeur est passée à " & xrg.Offset(, 1), vbInformation
   End If
End Sub

 

[klorane]

Bonjour Eric, Mapomme,

un grand merci pour votre participation qui fonctionne 'Nickel'

Bon week end et encore merci

Klorane