Macro recherchev + insertion texte

Version imprimable

04/02/2020, 11h38
gouN40

Macro recherchev + insertion texte

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.:D

Cordialement,

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:

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

04/02/2020, 12h37
gouN40

Ca fonctionne !!

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

Respect !!

En te souhaitant une bonne journée.

Cordialement,
04/02/2020, 13h28
BENNASR

Merci de cliquer sur RESOLU
Bonne continuation
04/02/2020, 14h27
gouN40

Si je peut abuser une denière fois...

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.

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

Code:

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

04/02/2020, 15h36
MarcelG

Bonjour,

Je pense que la méthode Find serait plus appropriée.
Celle-ci, conjuguée avec la méthode FindNext et paramétrée avec rigueur, éviterait un balayage et attribuerait une performance au code d'autant plus appréciable si la plage de recherche est très étendue.

Pour ce faire, l'aide en ligne retourne un exemple de code facilement adaptable.
04/02/2020, 15h40
gouN40

Excellent !

Excellent ! C'est parfait!

Merci.. Enormément !

En te souhaitant une bonne après midi.

Je clôture.

Bonne continuation.