Row
Résolu/Fermé
mann
-
29 sept. 2011 à 16:48
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 30 sept. 2011 à 18:29
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 30 sept. 2011 à 18:29
4 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
29 sept. 2011 à 17:10
29 sept. 2011 à 17:10
Bonjour,
Je n'ai pas bien compris, tu veux rechercher dans une feuille X et recopier dans Feuil1 ?
Déja, pour valider dans toute les feuilles..
à la place de
Et explique un peu mieux stp.
A+
Je n'ai pas bien compris, tu veux rechercher dans une feuille X et recopier dans Feuil1 ?
Déja, pour valider dans toute les feuilles..
With ActiveSheet
à la place de
With Worksheets("Feuil2")
Et explique un peu mieux stp.
A+
bonjour,
remplacer cette ligne :
edit : à la relecture, je suis complètement à coté ! la recherche devant s'effectuer en feuille 2, si finalement j'ai tout compris
reedit de plus c'est la m^me proposition que lermite222 en plus compliquée inutilement!
je retourne à la pêche
remplacer cette ligne :
With Worksheets("Feuil2")par:
With Worksheets(ActiveSheet.Name)bonne suite
edit : à la relecture, je suis complètement à coté ! la recherche devant s'effectuer en feuille 2, si finalement j'ai tout compris
reedit de plus c'est la m^me proposition que lermite222 en plus compliquée inutilement!
je retourne à la pêche
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
Modifié par lermite222 le 29/09/2011 à 18:27
Modifié par lermite222 le 29/09/2011 à 18:27
J'ai tester la fonction et la valeur cherchée se transcrit dans la feuille active quel qu'elle soit.
A+
Edit : La macro DOIT se trouver dans un module général (.bas)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Sub test()
Dim Numéro As String
Dim CelluleTrouvée As Range
Numéro = ["fg280410"]
With Worksheets("Feuil2")
Set CelluleTrouvée = .Range("b4:c122").Find(What:=Numéro, _
LookIn:=xlValues, LookAt:=xlWhole)
End With
If CelluleTrouvée Is Nothing Then
MsgBox "pas trouvé"
Else
ActiveSheet.Range("F25") = CelluleTrouvée
End If
End Sub
A+
Edit : La macro DOIT se trouver dans un module général (.bas)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Problème résolu comme suit :
Sub test()
Dim Numéro As String, Ligne As Long
Dim CelluleTrouvée As Range, Col As Integer
Dim toto
Numéro = ["FG280210"]
With Worksheets("Feuil2")
Set CelluleTrouvée = .Range("b4:c122").Find(What:=Numéro, _
LookIn:=xlValues, LookAt:=xlWhole)
If CelluleTrouvée Is Nothing Then
MsgBox "pas trouvé"
Else
Ligne = CelluleTrouvée.Row
Col = CelluleTrouvée.Column + 2
toto = .Cells(Ligne, Col).Value
MsgBox ("trouvé : ligne = " & Ligne & " , colonne = " & Col)
Worksheets("Feuil1").Range("F25") = toto
MsgBox "La valeur trouvée """ & toto & """" & " a été copié en feuil1, cellule F25."
End If
End With
End Sub
Merci encore et @++ pour de nouvelles aventures...
:-)
Sub test()
Dim Numéro As String, Ligne As Long
Dim CelluleTrouvée As Range, Col As Integer
Dim toto
Numéro = ["FG280210"]
With Worksheets("Feuil2")
Set CelluleTrouvée = .Range("b4:c122").Find(What:=Numéro, _
LookIn:=xlValues, LookAt:=xlWhole)
If CelluleTrouvée Is Nothing Then
MsgBox "pas trouvé"
Else
Ligne = CelluleTrouvée.Row
Col = CelluleTrouvée.Column + 2
toto = .Cells(Ligne, Col).Value
MsgBox ("trouvé : ligne = " & Ligne & " , colonne = " & Col)
Worksheets("Feuil1").Range("F25") = toto
MsgBox "La valeur trouvée """ & toto & """" & " a été copié en feuil1, cellule F25."
End If
End With
End Sub
Merci encore et @++ pour de nouvelles aventures...
:-)
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
30 sept. 2011 à 18:29
30 sept. 2011 à 18:29
Re,
Y a plus court..
A+
Y a plus court..
Else
Worksheets("Feuil1").Range("F25") = CelluleTrouvée.Offset(0,2)
A+
29 sept. 2011 à 17:13
En fait je travaille dans la feuilx et mon tableau de recherche se trouve en feuil2.
De ce fait mon programme ne fonctionne pas...
Il ne fonctionne que lorsque je suis dans ma feuil2...
Voilà... Merci de ton aide.
@+