Discussion :

[gouN40]

Bonjour à tous,

Voilà, je bute sur un truc , j'en suis sur trop con, mais bon….

Voilà mon problème, je souhaiterais créer un code VBA pour faire cette action:

Un Chiffre est dans la cellule "T9" sur l'onglet "Feuille2"
Je souhaiterais qu'il fasse une recherchev dans l'onglet "Feuille1" cellules "A2:A885"
S'il trouve une correspondance exacte, je souhaiterais qu'il insère le mot "ENTREE" dans l'onglet "Feuille1" Colonne "D" sur la même ligne que la correspondance.

Et là, cerise sur le gâteau … S'il ne trouve pas de correspondance qu'il m'affiche une box me disant "Numéro inconnu" avec bien sur un "OK"

J'ai creusé du cotés des formules, mais c'est pas la bonne piste car je lierai ce code VBA à un bouton.
Et du cotés VBA, je ne mis connais pas suffisamment .

J'espère avoir été très claire sur mon problème.

Merci d'avance et bonne journée.

Cordialement,

[BENNASR]

Bonjour
NB : à tester sur une copie de ton documents pour éviter tout risque de perte des données
tu demande d'insérer le mot entrée donc j'ai supposé qu'il y a qq chose dans la colonne D

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub rechercherT9()
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
Dim plage As Range
Set plage = F1.Range("A2:A885")
codrecherché = F2.Range("T9").Value
Application.ScreenUpdating = False
For Each cell In plage
 If cell.Value = codrecherché Then
    F1.Cells(cell.Row, 4) = "Entrée   " & F1.Cells(cell.Row, 4)
 End If
    Next cell
    Application.ScreenUpdating = True
End Sub

[gouN40]

Merci énormément ça fait exactement le job !!!

Respect !!

En te souhaitant une bonne journée.

Cordialement,

[BENNASR]

Merci de cliquer sur RESOLU
Bonne continuation

[gouN40]

Si je peut abuser une dernière fois, dans ton code je souhaiterais qu'avant qu'il inscrive le mot "ENTREE", qu'il efface la cellule juste avant car s'il y a déjà le mot "ENTREE" il me le marque deux fois.

Et avec ça se serai parfait.

En te remerciant d'avance.

Cordialement.

[BENNASR]

qu'il efface totalement le contenue de cellule D ??
si oui

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub rechercherT9()
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
Dim plage As Range
Set plage = F1.Range("A2:A885")
codrecherché = F2.Range("T9").Value
Application.ScreenUpdating = False
For Each cell In plage
 If cell.Value = codrecherché Then
    F1.Cells(cell.Row, 4) = "Entrée"
 End If
    Next cell
    Application.ScreenUpdating = True
End Sub