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

klorane

XLDnaute Occasionnel
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
 

Pièces jointes

  • recherche.xlsm
    14.7 KB · Affichages: 4

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous :),
Un code :
VB:
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
 

Pièces jointes

  • klorane- recherche- v1.xlsm
    19.5 KB · Affichages: 4

Discussions similaires

Réponses
6
Affichages
284
Réponses
9
Affichages
280

Statistiques des forums

Discussions
313 198
Messages
2 096 142
Membres
106 505
dernier inscrit
ngomez