Bonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des liens
pour pourvoir effectuer des recherches sur toutes les feuilles d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette procédure
pour effectuer une recherche dans certaines colonnes et non pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse avec
le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des liens
pour pourvoir effectuer des recherches sur toutes les feuilles d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette procédure
pour effectuer une recherche dans certaines colonnes et non pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse avec
le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des liens
pour pourvoir effectuer des recherches sur toutes les feuilles d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette procédure
pour effectuer une recherche dans certaines colonnes et non pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse avec
le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des liens
pour pourvoir effectuer des recherches sur toutes les feuilles d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette procédure
pour effectuer une recherche dans certaines colonnes et non pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse avec
le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des liens
pour pourvoir effectuer des recherches sur toutes les feuilles d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette procédure
pour effectuer une recherche dans certaines colonnes et non pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse avec
le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des liens
pour pourvoir effectuer des recherches sur toutes les feuilles d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette procédure
pour effectuer une recherche dans certaines colonnes et non pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse avec
le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
DanielBonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles d'un
classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non pas
la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
Daniel
Bonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles d'un
classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non pas
la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
DanielBonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles d'un
classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non pas
la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne marche
pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible m'expliquer
comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" a écrit dans le message de news:
OqxzRC%Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
DanielBonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles d'un
classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non pas
la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne marche
pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible m'expliquer
comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OqxzRC%233JHA.1092@TK2MSFTNGP06.phx.gbl...
Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
Daniel
Bonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles d'un
classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non pas
la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne marche
pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible m'expliquer
comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" a écrit dans le message de news:
OqxzRC%Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
DanielBonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles d'un
classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non pas
la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne
marche pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible
m'expliquer comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" a écrit dans le message de news:
OqxzRC%Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
DanielBonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles
d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non
pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne
marche pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible
m'expliquer comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OqxzRC%233JHA.1092@TK2MSFTNGP06.phx.gbl...
Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
Daniel
Bonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles
d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non
pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne
marche pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible
m'expliquer comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" a écrit dans le message de news:
OqxzRC%Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
DanielBonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles
d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non
pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne marche
pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible m'expliquer
comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" a écrit dans le message de news:
OqxzRC%Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row, 5)).Value
End With
End If
End Sub
DanielBonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des liens
pour pourvoir effectuer des recherches sur toutes les feuilles d'un
classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non pas
la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne marche
pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible m'expliquer
comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OqxzRC%233JHA.1092@TK2MSFTNGP06.phx.gbl...
Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row, 5)).Value
End With
End If
End Sub
Daniel
Bonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des liens
pour pourvoir effectuer des recherches sur toutes les feuilles d'un
classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non pas
la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne marche
pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible m'expliquer
comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" a écrit dans le message de news:
OqxzRC%Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row, 5)).Value
End With
End If
End Sub
DanielBonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des liens
pour pourvoir effectuer des recherches sur toutes les feuilles d'un
classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non pas
la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour.
Je me suis mal expliqué, seule la seconde macro devait être utilisée;
voici le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj200905/cijr8d5HFR.xls
DanielBonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne
marche pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible
m'expliquer comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" a écrit dans le message de news:
OqxzRC%Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
DanielBonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles
d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non
pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour.
Je me suis mal expliqué, seule la seconde macro devait être utilisée;
voici le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj200905/cijr8d5HFR.xls
Daniel
Bonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne
marche pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible
m'expliquer comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OqxzRC%233JHA.1092@TK2MSFTNGP06.phx.gbl...
Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
Daniel
Bonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles
d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non
pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour.
Je me suis mal expliqué, seule la seconde macro devait être utilisée;
voici le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj200905/cijr8d5HFR.xls
DanielBonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne
marche pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible
m'expliquer comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" a écrit dans le message de news:
OqxzRC%Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
DanielBonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles
d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non
pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour.
Je me suis mal expliqué, seule la seconde macro devait être utilisée;
voici le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj200905/cijr8d5HFR.xls
DanielBonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne
marche pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible
m'expliquer comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" a écrit dans le message de news:
OqxzRC%Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
DanielBonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles
d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non
pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour.
Je me suis mal expliqué, seule la seconde macro devait être utilisée;
voici le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj200905/cijr8d5HFR.xls
Daniel
Bonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne
marche pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible
m'expliquer comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OqxzRC%233JHA.1092@TK2MSFTNGP06.phx.gbl...
Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
Daniel
Bonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles
d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non
pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour.
Je me suis mal expliqué, seule la seconde macro devait être utilisée;
voici le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj200905/cijr8d5HFR.xls
DanielBonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne
marche pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible
m'expliquer comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" a écrit dans le message de news:
OqxzRC%Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
DanielBonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles
d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non
pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour à tous,
Une nouvelle fois je suis coincé !
Très gentilement Daniel.C m'avait mis au point la macro suivante
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row, 5)).Value
End With
End If
End Sub
elle marche à merveille sur la feuille 13 mais maintenant je voudrais qu'elle
travaille sur tous les onglets. J'ai donc fait les modifs suivantes :
Private Sub Worksheet_Change(ByVal Target As Range)
'Macro de Daniel.C le 29/05/2009
Dim c As Range
If Target.Address = "$B$1" Then
For RangFeuille = 1 To 12
With Sheets(RangFeuille)
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B3+2:E3].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
Next RangFeuille
End If
End Sub
En fait, je boucle sur les onglets de 1 à 13 et le résultat je le décale de 2
lignes à chaque fois mais il plante sur la ligne suivante :
[B3+2:E3].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
Il n'aime pas le +2
voyez vous une solution ??
Un grand merci à vous tous pour votre compréhension
Bon dimanche
Philippe
"Daniel.C" a écrit dans le message de news:
Opn%Bonjour.
Je me suis mal expliqué, seule la seconde macro devait être utilisée; voici
le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj200905/cijr8d5HFR.xls
DanielBonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne
marche pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible
m'expliquer comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" a écrit dans le message de news:
OqxzRC%Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
DanielBonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles
d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non
pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour à tous,
Une nouvelle fois je suis coincé !
Très gentilement Daniel.C m'avait mis au point la macro suivante
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row, 5)).Value
End With
End If
End Sub
elle marche à merveille sur la feuille 13 mais maintenant je voudrais qu'elle
travaille sur tous les onglets. J'ai donc fait les modifs suivantes :
Private Sub Worksheet_Change(ByVal Target As Range)
'Macro de Daniel.C le 29/05/2009
Dim c As Range
If Target.Address = "$B$1" Then
For RangFeuille = 1 To 12
With Sheets(RangFeuille)
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B3+2:E3].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
Next RangFeuille
End If
End Sub
En fait, je boucle sur les onglets de 1 à 13 et le résultat je le décale de 2
lignes à chaque fois mais il plante sur la ligne suivante :
[B3+2:E3].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
Il n'aime pas le +2
voyez vous une solution ??
Un grand merci à vous tous pour votre compréhension
Bon dimanche
Philippe
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
Opn%23hXD4JHA.1528@TK2MSFTNGP05.phx.gbl...
Bonjour.
Je me suis mal expliqué, seule la seconde macro devait être utilisée; voici
le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj200905/cijr8d5HFR.xls
Daniel
Bonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne
marche pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible
m'expliquer comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OqxzRC%233JHA.1092@TK2MSFTNGP06.phx.gbl...
Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
Daniel
Bonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles
d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non
pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe
Bonjour à tous,
Une nouvelle fois je suis coincé !
Très gentilement Daniel.C m'avait mis au point la macro suivante
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row, 5)).Value
End With
End If
End Sub
elle marche à merveille sur la feuille 13 mais maintenant je voudrais qu'elle
travaille sur tous les onglets. J'ai donc fait les modifs suivantes :
Private Sub Worksheet_Change(ByVal Target As Range)
'Macro de Daniel.C le 29/05/2009
Dim c As Range
If Target.Address = "$B$1" Then
For RangFeuille = 1 To 12
With Sheets(RangFeuille)
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B3+2:E3].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
Next RangFeuille
End If
End Sub
En fait, je boucle sur les onglets de 1 à 13 et le résultat je le décale de 2
lignes à chaque fois mais il plante sur la ligne suivante :
[B3+2:E3].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
Il n'aime pas le +2
voyez vous une solution ??
Un grand merci à vous tous pour votre compréhension
Bon dimanche
Philippe
"Daniel.C" a écrit dans le message de news:
Opn%Bonjour.
Je me suis mal expliqué, seule la seconde macro devait être utilisée; voici
le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj200905/cijr8d5HFR.xls
DanielBonjour Daniel,
Je suis désolé mais j'ai collé tes 2 macros dans le module mais ca ne
marche pas.
Pourrai-tu me m'envoyer le fichier avec le macros et si possible
m'expliquer comment elles fonctionnent.
Un grand merci à toi
Bonne journée
Philippe
"Daniel.C" a écrit dans le message de news:
OqxzRC%Pour les visiteurs aussi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub
DanielBonjour les incollables
Suite à mon message du 26 mai, Jacques Boisgontier m'avait donné des
liens pour pourvoir effectuer des recherches sur toutes les feuilles
d'un classeur.
Etant nul en VBA, je voulais vous demander que modifier dans cette
procédure pour effectuer une recherche dans certaines colonnes et non
pas la colorier.
Toutes mes feuilles sont identiques
http://cjoint.com/?fCwst73soN
Sur ma feuille Menu, je voudrais en sélectionnant une équipe je puisse
avec le résultat de l'équipe (équipe qui recoit ou visiteur)
Sub chercheFindMultiFeuillesValeur()
x = "Bidon"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub
Si j'abuse pas, pouvez me m'expliquer en détail vos manips.
Un grand merci à vous pour votre précieuse aide.
Bonne soirée
Amicalement
Philippe