tableau

Le
man77 Hors ligne
Bonjour à Tous De retour Et toujours aussi novice
Voilà mon problème:
Je recherche dans 2 colonnes d'un tableau une référence (par exemple "toto" en B25".
La position de cette référence me donne un casier de rangement (par exemple B27)
Je souhaiterais mettre en mémoire le contenu de b27 et le copier dans une feuil2 et cellule f25.
Voici mon début de prog :
numéro = "toto"
Set celluletrouvee = Range("A1:A5").Find(numéro, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("pas trouvé")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column + 2
MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col)
End If
Merci à Tous de votre aide.
@++++
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #23797261
Salut à toi
Met comme ceci :

celluletrouvee = ""
numéro = "toto"
On error Resume Next
celluletrouvee = Range("A1:A5").Find(What:=numéro, LookIn:=xlValues ,
lookat:=xlWhole).Address
If celluletrouvee = "" Then
MsgBox ("pas trouvé ")
Else
ligne = Range(celluletrouvee).Row
col = Range(celluletrouvee).Column + 2
MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col)
End If

Celà devrait convenir

Dis moi !!!!!
man77 Hors ligne
Le #23797341
FFO a écrit le 27/09/2011 à 16h44 :
Salut à toi
Met comme ceci :

celluletrouvee = ""
numéro = "toto"
On error Resume Next
celluletrouvee = Range("A1:A5").Find(What:=numéro,
LookIn:=xlValues ,
lookat:=xlWhole).Address
If celluletrouvee = "" Then
MsgBox ("pas trouvé ")
Else
ligne = Range(celluletrouvee).Row
col = Range(celluletrouvee).Column + 2
MsgBox ("trouvé : ligne = " & ligne & " , colonne
= " & col)
End If

Celà devrait convenir

Dis moi !!!!!


Merci de ta réponse.

Il semblerait, d'après mes très faible connaissance en VBA, que je ne copie pas le résultat de ma recherche dans une autre feuille. Je recueille bien mes coordonnées de ma recherche mais je ne copie pas ce résultat...
Ou alors explique moi...car là je suis dépassé...
merci
MichD
Le #23797791
Bonjour,


'--------------------------------------------
Sub test()

Dim Numéro As String, Ligne As Long
Dim CelluleTrouvée As Range, Col As Integer

Numéro = "toto"
With Feuil1 ' Worksheets("Feuil1") 'nom feuille à adapter
Set CelluleTrouvée = .Range("A1:A5").Find(What:=Numéro, _
LookIn:=xlValues, LookAt:=xlWhole)
End With
If CelluleTrouvée Is Nothing Then
MsgBox "pas trouvé"
Else
Ligne = CelluleTrouvée.Row
Col = CelluleTrouvée.Column + 2
MsgBox ("trouvé : ligne = " & Ligne & " , colonne = " & Col)
'Pour copier la valeur trouvée dans la feuil2 en F25
Worksheets("Feuil2").Range("F25") = CelluleTrouvée.Value
MsgBox "La valeur trouvée """ & CelluleTrouvée & """" & _
" a été copié en feuil2, cellule F25."
End If
End Sub
'--------------------------------------------



MichD
------------------------------------------
"man77" a écrit dans le message de groupe de discussion :

Bonjour à Tous... De retour... Et toujours aussi novice...
Voilà mon problème:
Je recherche dans 2 colonnes d'un tableau une référence (par exemple "toto" en
B25".
La position de cette référence me donne un casier de rangement (par exemple
B27)
Je souhaiterais mettre en mémoire le contenu de b27 et le copier dans une
feuil2 et cellule f25.
Voici mon début de prog :
numéro = "toto"
Set celluletrouvee = Range("A1:A5").Find(numéro, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("pas trouvé")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column + 2
MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col)
End If
Merci à Tous de votre aide.
@++++
man77 Hors ligne
Le #23799601
MichD a écrit le 27/09/2011 à 19h28 :
Bonjour,


'--------------------------------------------
Sub test()

Dim Numéro As String, Ligne As Long
Dim CelluleTrouvée As Range, Col As Integer

Numéro = "toto"
With Feuil1 ' Worksheets("Feuil1") 'nom feuille à adapter
Set CelluleTrouvée = .Range("A1:A5").Find(What:=Numéro,
_
LookIn:=xlValues, LookAt:=xlWhole)
End With
If CelluleTrouvée Is Nothing Then
MsgBox "pas trouvé"
Else
Ligne = CelluleTrouvée.Row
Col = CelluleTrouvée.Column + 2
MsgBox ("trouvé : ligne = " & Ligne & " , colonne
= " & Col)
'Pour copier la valeur trouvée dans la feuil2 en F25
Worksheets("Feuil2").Range("F25") =
CelluleTrouvée.Value
MsgBox "La valeur trouvée """ &
CelluleTrouvée & """" & _
" a été copié en feuil2, cellule F25."
End If
End Sub
'--------------------------------------------



MichD
------------------------------------------
"man77" a écrit dans le message de groupe de discussion :


Bonjour à Tous... De retour... Et toujours aussi novice...
Voilà mon problème:
Je recherche dans 2 colonnes d'un tableau une référence (par
exemple "toto" en
B25".
La position de cette référence me donne un casier de rangement
(par exemple
B27)
Je souhaiterais mettre en mémoire le contenu de b27 et le copier dans
une
feuil2 et cellule f25.
Voici mon début de prog :
numéro = "toto"
Set celluletrouvee = Range("A1:A5").Find(numéro,
lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("pas trouvé")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column + 2
MsgBox ("trouvé : ligne = " & ligne & " , colonne
= " & col)
End If
Merci à Tous de votre aide.
@++++


Bonjour Et M E R C I !!!!!

Top, ça fonctionne comme je le souhaitais... :-)

Merci
Publicité
Poster une réponse
Anonyme