Bonjour à vous,
je suis plutôt novice dans le VBA.
alors j'ouvre un MsgBox pour afficher la valeur de la cellule suite à une recherche.
J'ai essayé le Cel.Value mais il me dit Erreur.
Dans le script, il y a Cel.Address et il m'affiche l'adresse de la cellule mais je voudrais qu'il m'affiche le contenu (valeur) de la cellule (à l'endroit ''Est-ce ceci:'')
Merci
Sub Macro_Recherche()
Dim Str_Plage As String
Dim Cel As Range
Dim Feuil As Worksheet
Dim Str_critère As String
Dim X As Byte
Str_Plage = "A:A"
Str_critère = InputBox("Article à rechercher ?")
For Each Feuil In Sheets
For Each Cel In Feuil.Range(Str_Plage)
If UCase(Cel) Like "*" & UCase(Str_critère) & "*" Then
Feuil.Activate
Cel.Activate
X = MsgBox("Mot """ & Str_critère & """ trouvé :" & Chr(13) & _
"Est-ce ceci: " & Cel.Address(0, 0) & Chr(13) & Chr(13) & _
"Oui : on arrête la recherche" & Chr(13) & _
"Non : on continue la recherche " & Chr(13), vbDefaultButton2 + _
vbQuestion + vbYesNo, "MOT TROUVÉ")
Select Case X
Case 6
Feuil.Activate
Cel.Activate
Selection.Copy
Sheets("Accueil").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C5").Select
Exit Sub
Case 2 'annuler on sort
Exit Sub
Case Else 'Non=7
je suis plutôt novice dans le VBA.
alors j'ouvre un MsgBox pour afficher la valeur de la cellule suite à une recherche.
J'ai essayé le Cel.Value mais il me dit Erreur.
Dans le script, il y a Cel.Address et il m'affiche l'adresse de la cellule mais je voudrais qu'il m'affiche le contenu (valeur) de la cellule (à l'endroit ''Est-ce ceci:'')
Merci
Sub Macro_Recherche()
Dim Str_Plage As String
Dim Cel As Range
Dim Feuil As Worksheet
Dim Str_critère As String
Dim X As Byte
Str_Plage = "A:A"
Str_critère = InputBox("Article à rechercher ?")
For Each Feuil In Sheets
For Each Cel In Feuil.Range(Str_Plage)
If UCase(Cel) Like "*" & UCase(Str_critère) & "*" Then
Feuil.Activate
Cel.Activate
X = MsgBox("Mot """ & Str_critère & """ trouvé :" & Chr(13) & _
"Est-ce ceci: " & Cel.Address(0, 0) & Chr(13) & Chr(13) & _
"Oui : on arrête la recherche" & Chr(13) & _
"Non : on continue la recherche " & Chr(13), vbDefaultButton2 + _
vbQuestion + vbYesNo, "MOT TROUVÉ")
Select Case X
Case 6
Feuil.Activate
Cel.Activate
Selection.Copy
Sheets("Accueil").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C5").Select
Exit Sub
Case 2 'annuler on sort
Exit Sub
Case Else 'Non=7