Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel tableau

tableau

4 réponses
Avatar
man77
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.
@++++
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FFO
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 !!!!!
Avatar
man77
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
Avatar
MichD
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.
@++++
Avatar
man77
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