Recherche sur toutes les feuilles

Bonjour Eric
Par exemple
(code un peu allégé)
Sub Sup_de_Valeur()
Var = InputBox(Prompt:="Taper la valeur recherchée.")
If Var = "" Then Exit Sub
For i = 1 To Sheets.Count
With Worksheets(i).UsedRange
Set LaValeur = .Find(What:=(Var), LookIn:=xlFormulas)
If Not LaValeur Is Nothing Then
NumLg = LaValeur.Column
Worksheets(i).Activate
Columns(NumLg).EntireColumn.Select
Style = vbYesNo + vbDefaultButton1
Msg = "Suppression de la colonne N°: " & NumLg
Title = "Attention suppression de la colonne."
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
Selection.Delete Shift:=xlToLeft
Else
Exit Sub
End If
End If
End With
Next i
End Sub


"Mesa" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:07be01c3ad1e$16d8ffd0$a501280a@phx.gbl...
Slt à vous, voici le bout d'une macro que je n'arrive pas
à modifier pour qu'elle fasse la recherche sur chacune des
feuilles, une par une pour trouver ma valeur. Si qq'un peu
rajouter le bout de code manquant ce serait sympa.
@+ Eric

Sub Sup_de_Valeur()

Dim Var
Dim NumLg
On Error Resume Next
Var = InputBox(Prompt:="Taper la valeur recherchée.")
Cells.Find(What:=(Var), After:¬tiveCell,
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _
:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse).Activate
With Application.ActiveCell
NumLg = .Column
End With
ActiveCell.EntireColumn.Select
Style = vbYesNo + vbDefaultButton1
Msg = "Suppression de la colonne N°: " & NumLg
Title = "Attention suppression de la colonne."
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
Selection.Delete Shift:=xlToLeft
Else
Exit Sub
End If
Cells(1, 1).Select
End Sub

Heub ça marche pas,
il ne se passe rien quand je lance la macro, ça me demande
bien la valeur mais après rien lol.
Il faut que je pédale ???
Merci de me faire suivre si tu arrives à debugger, je vais
regarder aussi.

@+ Eric

-----Message d'origine-----
Bonjour Eric
Par exemple
(code un peu allégé)
Sub Sup_de_Valeur()
Var = InputBox(Prompt:="Taper la valeur recherchée.")
If Var = "" Then Exit Sub
For i = 1 To Sheets.Count
With Worksheets(i).UsedRange
Set LaValeur = .Find(What:=(Var),
LookIn:=xlFormulas)

If Not LaValeur Is Nothing Then
NumLg = LaValeur.Column
Worksheets(i).Activate
Columns(NumLg).EntireColumn.Select
Style = vbYesNo + vbDefaultButton1
Msg = "Suppression de la colonne N°: " & NumLg
Title = "Attention suppression de la colonne."
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
Selection.Delete Shift:=xlToLeft
Else
Exit Sub
End If
End If
End With
Next i
End Sub


"Mesa" <anonymous@discussions.microsoft.com> a écrit dans
le message de

news:07be01c3ad1e$16d8ffd0$a501280a@phx.gbl...
Slt à vous, voici le bout d'une macro que je n'arrive pas
à modifier pour qu'elle fasse la recherche sur chacune des
feuilles, une par une pour trouver ma valeur. Si qq'un peu
rajouter le bout de code manquant ce serait sympa.
@+ Eric

Sub Sup_de_Valeur()

Dim Var
Dim NumLg
On Error Resume Next
Var = InputBox(Prompt:="Taper la valeur recherchée.")
Cells.Find(What:=(Var), After:=ActiveCell,
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _
:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False).Activate
With Application.ActiveCell
NumLg = .Column
End With
ActiveCell.EntireColumn.Select
Style = vbYesNo + vbDefaultButton1
Msg = "Suppression de la colonne N°: " & NumLg
Title = "Attention suppression de la colonne."
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
Selection.Delete Shift:=xlToLeft
Else
Exit Sub
End If
Cells(1, 1).Select
End Sub


.

Bonjour ,


Juste modifier un truc ou deux,

cela semble fonctionner très bien !

N.B. Tu n'as pas indiqué dans ta question si ce que tu cherches dans ta question ?
cela peut avoir une influence sur : Lookat:=xlWhole ou xlpart

'--------------------------------
Sub Sup_de_Valeur()

Dim LaValeur As Range
Dim Var As Variant, i As Integer

Var = InputBox(Prompt:="Taper la valeur recherchée.")
If Var = "" Then Exit Sub
For i = 1 To Worksheets.Count
With Worksheets(i).UsedRange
Set LaValeur = .Find(What:=Var, LookIn:=xlValues, Lookat:=xlWhole)
If Not LaValeur Is Nothing Then
Set LaValeur = LaValeur.EntireColumn
Sheets(LaValeur.Parent.Name).Activate
LaValeur.Select
Style = vbYesNo + vbDefaultButton1
Msg = "Suppression de la colonne N°: " & LaValeur.Address(0, 0)
Title = "Attention suppression de la colonne."
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
LaValeur.Delete Shift:=xlToLeft
Else
Exit Sub
End If
End If
End With
Next i
End Sub
'--------------------------------


Salutations!



<anonymous@discussions.microsoft.com> a écrit dans le message de news:06c801c3ad27$46d96d10$a001280a@phx.gbl...
Heub ça marche pas,
il ne se passe rien quand je lance la macro, ça me demande
bien la valeur mais après rien lol.
Il faut que je pédale ???
Merci de me faire suivre si tu arrives à debugger, je vais
regarder aussi.

@+ Eric

-----Message d'origine-----
Bonjour Eric
Par exemple
(code un peu allégé)
Sub Sup_de_Valeur()
Var = InputBox(Prompt:="Taper la valeur recherchée.")
If Var = "" Then Exit Sub
For i = 1 To Sheets.Count
With Worksheets(i).UsedRange
Set LaValeur = .Find(What:=(Var),
LookIn:=xlFormulas)

If Not LaValeur Is Nothing Then
NumLg = LaValeur.Column
Worksheets(i).Activate
Columns(NumLg).EntireColumn.Select
Style = vbYesNo + vbDefaultButton1
Msg = "Suppression de la colonne N°: " & NumLg
Title = "Attention suppression de la colonne."
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
Selection.Delete Shift:=xlToLeft
Else
Exit Sub
End If
End If
End With
Next i
End Sub


"Mesa" <anonymous@discussions.microsoft.com> a écrit dans
le message de

news:07be01c3ad1e$16d8ffd0$a501280a@phx.gbl...
Slt à vous, voici le bout d'une macro que je n'arrive pas
à modifier pour qu'elle fasse la recherche sur chacune des
feuilles, une par une pour trouver ma valeur. Si qq'un peu
rajouter le bout de code manquant ce serait sympa.
@+ Eric

Sub Sup_de_Valeur()

Dim Var
Dim NumLg
On Error Resume Next
Var = InputBox(Prompt:="Taper la valeur recherchée.")
Cells.Find(What:=(Var), After:¬tiveCell,
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _
:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse).Activate
With Application.ActiveCell
NumLg = .Column
End With
ActiveCell.EntireColumn.Select
Style = vbYesNo + vbDefaultButton1
Msg = "Suppression de la colonne N°: " & NumLg
Title = "Attention suppression de la colonne."
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
Selection.Delete Shift:=xlToLeft
Else
Exit Sub
End If
Cells(1, 1).Select
End Sub


.

Salut Èric,
Essai ceci et adapte :

Sub Recherche()
Dim Fe As Worksheet
Dim Cel As Range
Dim Var
Dim Adr As String
Dim Chaine As String

On Error Resume Next
Var = InputBox("Taper la valeur recherchée.")
If Var = "" Then Exit Sub
'parcour toutes les feuilles de calculs
For Each Fe In Worksheets
'inscrit le nom de la feuille
Chaine = Chaine & "----" & Fe.Name & "----" & vbCrLf
'recherche la valeur dans les cellules
Set Cel = Cells.Find(Var, , xlValues)
If Not Cel Is Nothing Then
Adr = Cel.Address
Do
'inscrit l'adresse de la cellule ou la valeur est trouvée
Chaine = Chaine & Cel.Address(0, 0) & vbCrLf
Set Cel = Cells.FindNext(Cel)
Loop While Cel.Address <> Adr
End If
Next Fe

MsgBox Chaine

Set Cel = Nothing
Set Fe = Nothing
End Sub

Hervé.

"Mesa" <anonymous@discussions.microsoft.com> a écrit dans le message news:
07be01c3ad1e$16d8ffd0$a501280a@phx.gbl...
Slt à vous, voici le bout d'une macro que je n'arrive pas
à modifier pour qu'elle fasse la recherche sur chacune des
feuilles, une par une pour trouver ma valeur. Si qq'un peu
rajouter le bout de code manquant ce serait sympa.
@+ Eric

Sub Sup_de_Valeur()

Dim Var
Dim NumLg
On Error Resume Next
Var = InputBox(Prompt:="Taper la valeur recherchée.")
Cells.Find(What:=(Var), After:¬tiveCell,
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _
:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse).Activate
With Application.ActiveCell
NumLg = .Column
End With
ActiveCell.EntireColumn.Select
Style = vbYesNo + vbDefaultButton1
Msg = "Suppression de la colonne N°: " & NumLg
Title = "Attention suppression de la colonne."
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
Selection.Delete Shift:=xlToLeft
Else
Exit Sub
End If
Cells(1, 1).Select
End Sub