Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Recherche cellule

Recherche cellule

15 réponses
Avatar
GIBI68
Bonjour,

Je ne connais pas l'instruction qui me permet de trouver une cellule par la
valeur qu'elle contient et de me renvoyer la ligne et la colonne de cette
cellule.

EX: je cherche une cellule qui contient la valeur 7841L0 dans une feuille
comment connaître le n° de la ligne et de la colonne de la cellule qui
contient 7841L0

Merci d'avance car je me perd dans des FOR NEXT

Bonne journée
Signaler un problème avec ce contenu

10 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
1 2
Avatar
Ellimac
Bonjour,

Sub Toto()
Columns("A:A").Find(What:="P7").Activate
l = ActiveCell.Row
c = ActiveCell.Column
MsgBox "ligne " & l & " colonne " & c
End Sub

Camille

-----Message d'origine-----
Bonjour,

Je ne connais pas l'instruction qui me permet de trouver
une cellule par la

valeur qu'elle contient et de me renvoyer la ligne et la
colonne de cette

cellule.

EX: je cherche une cellule qui contient la valeur 7841L0
dans une feuille

comment connaître le n° de la ligne et de la colonne de
la cellule qui

contient 7841L0

Merci d'avance car je me perd dans des FOR NEXT

Bonne journée


.



Avatar
GVentre
Bonjour GIBI68:

tu peux essayer ceci:

Sub cherche()


Dim MaPlage, MaCell As Range
Set MaPlage = Range("A1:A10") 'à adapter

For Each MaCell In MaPlage
If MaCell.Value = "7841L0" Then
MsgBox MaCell.Address 'message box ou autre code
End If
Next

End Sub


Cordialement,

GVentre



Bonjour,

Je ne connais pas l'instruction qui me permet de trouver une cellule par la
valeur qu'elle contient et de me renvoyer la ligne et la colonne de cette
cellule.

EX: je cherche une cellule qui contient la valeur 7841L0 dans une feuille
comment connaître le n° de la ligne et de la colonne de la cellule qui
contient 7841L0

Merci d'avance car je me perd dans des FOR NEXT

Bonne journée






Avatar
Aurélien29
Bonjour,

With UsedRange
Set c = .Find("AZ", LookIn:=xlValues)
If Not c Is Nothing Then
a = c.Address
End If
End With

Dans a tu as la réponse a ta question


Bonjour,

Je ne connais pas l'instruction qui me permet de trouver une cellule par la
valeur qu'elle contient et de me renvoyer la ligne et la colonne de cette
cellule.

EX: je cherche une cellule qui contient la valeur 7841L0 dans une feuille
comment connaître le n° de la ligne et de la colonne de la cellule qui
contient 7841L0

Merci d'avance car je me perd dans des FOR NEXT

Bonne journée





Avatar
poy-poy
Bonjour GIBI68,

Je pense qu'une recherche marcherait mieux.

sub essai()
dim Lig as integer, Col as integer, add as string

Add Îlls.Find("poi").Address
lig = Cells.Find("poi").row
col = Cells.Find("poi").column

end sub

Cordialement
Benjamin

Bonjour,

Je ne connais pas l'instruction qui me permet de trouver une cellule par la
valeur qu'elle contient et de me renvoyer la ligne et la colonne de cette
cellule.

EX: je cherche une cellule qui contient la valeur 7841L0 dans une feuille
comment connaître le n° de la ligne et de la colonne de la cellule qui
contient 7841L0

Merci d'avance car je me perd dans des FOR NEXT

Bonne journée





Avatar
GIBI68
Merci pour cette réponse mais je ne comprend pas ce que représente "poi".
Je me suis mal exprimé dazns ma question c'est une variable que je cherche.
Merci encore
JM



"poy-poy" a écrit dans le message de
news:
Bonjour GIBI68,

Je pense qu'une recherche marcherait mieux.

sub essai()
dim Lig as integer, Col as integer, add as string

Add Îlls.Find("poi").Address
lig = Cells.Find("poi").row
col = Cells.Find("poi").column

end sub

Cordialement
Benjamin

Bonjour,

Je ne connais pas l'instruction qui me permet de trouver une cellule par
la


valeur qu'elle contient et de me renvoyer la ligne et la colonne de
cette


cellule.

EX: je cherche une cellule qui contient la valeur 7841L0 dans une
feuille


comment connaître le n° de la ligne et de la colonne de la cellule qui
contient 7841L0

Merci d'avance car je me perd dans des FOR NEXT

Bonne journée







Avatar
poy-poy
Re,

As tu essayer de remplacer poi par "7841L0" ? Si c'est bien une valeur que
tu cherches, cela devrait marcher. En supposant que tu obtiens cette valeur
précédement dans ton code et que tu l'as appellée Val, remplace directement
"poi" par Val.

si cela marche pas, n'hésite pas à renvoyer un message.

cordialement
Benjamin


Merci pour cette réponse mais je ne comprend pas ce que représente "poi".
Je me suis mal exprimé dazns ma question c'est une variable que je cherche.
Merci encore
JM



"poy-poy" a écrit dans le message de
news:
Bonjour GIBI68,

Je pense qu'une recherche marcherait mieux.

sub essai()
dim Lig as integer, Col as integer, add as string

Add Îlls.Find("poi").Address
lig = Cells.Find("poi").row
col = Cells.Find("poi").column

end sub

Cordialement
Benjamin

Bonjour,

Je ne connais pas l'instruction qui me permet de trouver une cellule par
la


valeur qu'elle contient et de me renvoyer la ligne et la colonne de
cette


cellule.

EX: je cherche une cellule qui contient la valeur 7841L0 dans une
feuille


comment connaître le n° de la ligne et de la colonne de la cellule qui
contient 7841L0

Merci d'avance car je me perd dans des FOR NEXT

Bonne journée












Avatar
GIBI68
Je suis complètement perdu

Je reprends à zéro

J'ai une série de références dans la colonne A de la feuille 1
j'ai une série de références identiques mais dans un ordre différent dans la
feuille 2
Je voudrais copier les valeurs des colonnes 3 et 4 de la feuille 1 dans la
feuille 2 référence par référence.
ex : la cellule A10 contient la valeur "fsfdsf" je veux récupérer les
valeurs des cellules C10 et D10 pour les copier dans ma feuille 2 en X10 et
Y10

J'ai tout dit
Merci encore





"poy-poy" a écrit dans le message de
news:
Re,

As tu essayer de remplacer poi par "7841L0" ? Si c'est bien une valeur que
tu cherches, cela devrait marcher. En supposant que tu obtiens cette
valeur

précédement dans ton code et que tu l'as appellée Val, remplace
directement

"poi" par Val.

si cela marche pas, n'hésite pas à renvoyer un message.

cordialement
Benjamin


Merci pour cette réponse mais je ne comprend pas ce que représente
"poi".


Je me suis mal exprimé dazns ma question c'est une variable que je
cherche.


Merci encore
JM



"poy-poy" a écrit dans le message de
news:
Bonjour GIBI68,

Je pense qu'une recherche marcherait mieux.

sub essai()
dim Lig as integer, Col as integer, add as string

Add Îlls.Find("poi").Address
lig = Cells.Find("poi").row
col = Cells.Find("poi").column

end sub

Cordialement
Benjamin

Bonjour,

Je ne connais pas l'instruction qui me permet de trouver une cellule
par




la
valeur qu'elle contient et de me renvoyer la ligne et la colonne de
cette


cellule.

EX: je cherche une cellule qui contient la valeur 7841L0 dans une
feuille


comment connaître le n° de la ligne et de la colonne de la cellule
qui




contient 7841L0

Merci d'avance car je me perd dans des FOR NEXT

Bonne journée














Avatar
poy-poy
J'avoue que moi aussi lol !!

Bon reprenons, le but c'est de copier les valeurs de ta feuille1 en feuille
2 en face de la bonne référence ? En supposant que tu n'est pas obligé de
passer par une macro, une formule (avec tes références en feuil2 en colonneW)
=recherchev(W1;feuil1!A:C;2;faux) en X1 te donneras la donnée de la colonne
B associée à la référence W1 présente en feuille1 colonne A. (remplacer 2 par
3 pour avoir la donnée de la colonne C).

En vba, le code suivant devrait te donner le bon résultat (nom des feuilles
à adapter):

sub essai()
dim i as integer, strnom as string, lig as integer
sheets("feuil2").select
for i = 1 to 10 'nombre de lignes
à adapter
strnom = sheets("feuil1").cells(i,1).value 'nom de la référence à
chercher
lig = cells.find (strnom).row 'ligne de la même
référence en feuille2
cells(lig,24)=sheets("feuil1").cells(i,2).value 'on remplit X
cells(lig,25)=sheets("feuil1").cells(i,3).value 'on remplit Y

next i

end sub

J'espère que cette fois ca va marcher :-)
Cordialement
Benjamin


Je suis complètement perdu

Je reprends à zéro

J'ai une série de références dans la colonne A de la feuille 1
j'ai une série de références identiques mais dans un ordre différent dans la
feuille 2
Je voudrais copier les valeurs des colonnes 3 et 4 de la feuille 1 dans la
feuille 2 référence par référence.
ex : la cellule A10 contient la valeur "fsfdsf" je veux récupérer les
valeurs des cellules C10 et D10 pour les copier dans ma feuille 2 en X10 et
Y10

J'ai tout dit
Merci encore





"poy-poy" a écrit dans le message de
news:
Re,

As tu essayer de remplacer poi par "7841L0" ? Si c'est bien une valeur que
tu cherches, cela devrait marcher. En supposant que tu obtiens cette
valeur

précédement dans ton code et que tu l'as appellée Val, remplace
directement

"poi" par Val.

si cela marche pas, n'hésite pas à renvoyer un message.

cordialement
Benjamin


Merci pour cette réponse mais je ne comprend pas ce que représente
"poi".


Je me suis mal exprimé dazns ma question c'est une variable que je
cherche.


Merci encore
JM



"poy-poy" a écrit dans le message de
news:
Bonjour GIBI68,

Je pense qu'une recherche marcherait mieux.

sub essai()
dim Lig as integer, Col as integer, add as string

Add Îlls.Find("poi").Address
lig = Cells.Find("poi").row
col = Cells.Find("poi").column

end sub

Cordialement
Benjamin

Bonjour,

Je ne connais pas l'instruction qui me permet de trouver une cellule
par




la
valeur qu'elle contient et de me renvoyer la ligne et la colonne de
cette


cellule.

EX: je cherche une cellule qui contient la valeur 7841L0 dans une
feuille


comment connaître le n° de la ligne et de la colonne de la cellule
qui




contient 7841L0

Merci d'avance car je me perd dans des FOR NEXT

Bonne journée



















Avatar
GIBI68
C'est beaucoup mieux voila ce que j'ai fait mais j'ai le message
suivant"variable objet ou variable de bloc with non définie" pour la ligne
lig=etc..

For row = 1 To 10 'nombre de
lignes à adapter
refpneu = Sheets(1).Cells(row, 1).Value 'nom de la
référence à chercher
refpneuval = Right$(refpneu, 6)
lig = Cells.Find(refpneuval).row 'ligne de
la même référence en feuille2
Cells(lig, 6) = Sheets(1).Cells(row, 3).Value 'on remplit
X
Cells(lig, 7) = Sheets(1).Cells(row, 4).Value 'on remplit
Y

Next row

merci encore




"poy-poy" a écrit dans le message de
news:
J'avoue que moi aussi lol !!

Bon reprenons, le but c'est de copier les valeurs de ta feuille1 en
feuille

2 en face de la bonne référence ? En supposant que tu n'est pas obligé de
passer par une macro, une formule (avec tes références en feuil2 en
colonneW)

=recherchev(W1;feuil1!A:C;2;faux) en X1 te donneras la donnée de la
colonne

B associée à la référence W1 présente en feuille1 colonne A. (remplacer 2
par

3 pour avoir la donnée de la colonne C).

En vba, le code suivant devrait te donner le bon résultat (nom des
feuilles

à adapter):

sub essai()
dim i as integer, strnom as string, lig as integer
sheets("feuil2").select
for i = 1 to 10 'nombre de
lignes

à adapter
strnom = sheets("feuil1").cells(i,1).value 'nom de la référence à
chercher
lig = cells.find (strnom).row 'ligne de la même
référence en feuille2
cells(lig,24)=sheets("feuil1").cells(i,2).value 'on remplit X
cells(lig,25)=sheets("feuil1").cells(i,3).value 'on remplit Y

next i

end sub

J'espère que cette fois ca va marcher :-)
Cordialement
Benjamin


Je suis complètement perdu

Je reprends à zéro

J'ai une série de références dans la colonne A de la feuille 1
j'ai une série de références identiques mais dans un ordre différent
dans la


feuille 2
Je voudrais copier les valeurs des colonnes 3 et 4 de la feuille 1 dans
la


feuille 2 référence par référence.
ex : la cellule A10 contient la valeur "fsfdsf" je veux récupérer les
valeurs des cellules C10 et D10 pour les copier dans ma feuille 2 en X10
et


Y10

J'ai tout dit
Merci encore





"poy-poy" a écrit dans le message de
news:
Re,

As tu essayer de remplacer poi par "7841L0" ? Si c'est bien une valeur
que



tu cherches, cela devrait marcher. En supposant que tu obtiens cette
valeur

précédement dans ton code et que tu l'as appellée Val, remplace
directement

"poi" par Val.

si cela marche pas, n'hésite pas à renvoyer un message.

cordialement
Benjamin


Merci pour cette réponse mais je ne comprend pas ce que représente
"poi".


Je me suis mal exprimé dazns ma question c'est une variable que je
cherche.


Merci encore
JM



"poy-poy" a écrit dans le message
de




news:
Bonjour GIBI68,

Je pense qu'une recherche marcherait mieux.

sub essai()
dim Lig as integer, Col as integer, add as string

Add Îlls.Find("poi").Address
lig = Cells.Find("poi").row
col = Cells.Find("poi").column

end sub

Cordialement
Benjamin

Bonjour,

Je ne connais pas l'instruction qui me permet de trouver une
cellule






par
la
valeur qu'elle contient et de me renvoyer la ligne et la
colonne de






cette
cellule.

EX: je cherche une cellule qui contient la valeur 7841L0 dans
une






feuille
comment connaître le n° de la ligne et de la colonne de la
cellule






qui
contient 7841L0

Merci d'avance car je me perd dans des FOR NEXT

Bonne journée





















Avatar
GIBI68
J'ai trouvé une chose j'ai ce message quand la référence de la feuille 2 est
inconnue



"poy-poy" a écrit dans le message de
news:
J'avoue que moi aussi lol !!

Bon reprenons, le but c'est de copier les valeurs de ta feuille1 en
feuille

2 en face de la bonne référence ? En supposant que tu n'est pas obligé de
passer par une macro, une formule (avec tes références en feuil2 en
colonneW)

=recherchev(W1;feuil1!A:C;2;faux) en X1 te donneras la donnée de la
colonne

B associée à la référence W1 présente en feuille1 colonne A. (remplacer 2
par

3 pour avoir la donnée de la colonne C).

En vba, le code suivant devrait te donner le bon résultat (nom des
feuilles

à adapter):

sub essai()
dim i as integer, strnom as string, lig as integer
sheets("feuil2").select
for i = 1 to 10 'nombre de
lignes

à adapter
strnom = sheets("feuil1").cells(i,1).value 'nom de la référence à
chercher
lig = cells.find (strnom).row 'ligne de la même
référence en feuille2
cells(lig,24)=sheets("feuil1").cells(i,2).value 'on remplit X
cells(lig,25)=sheets("feuil1").cells(i,3).value 'on remplit Y

next i

end sub

J'espère que cette fois ca va marcher :-)
Cordialement
Benjamin


Je suis complètement perdu

Je reprends à zéro

J'ai une série de références dans la colonne A de la feuille 1
j'ai une série de références identiques mais dans un ordre différent
dans la


feuille 2
Je voudrais copier les valeurs des colonnes 3 et 4 de la feuille 1 dans
la


feuille 2 référence par référence.
ex : la cellule A10 contient la valeur "fsfdsf" je veux récupérer les
valeurs des cellules C10 et D10 pour les copier dans ma feuille 2 en X10
et


Y10

J'ai tout dit
Merci encore





"poy-poy" a écrit dans le message de
news:
Re,

As tu essayer de remplacer poi par "7841L0" ? Si c'est bien une valeur
que



tu cherches, cela devrait marcher. En supposant que tu obtiens cette
valeur

précédement dans ton code et que tu l'as appellée Val, remplace
directement

"poi" par Val.

si cela marche pas, n'hésite pas à renvoyer un message.

cordialement
Benjamin


Merci pour cette réponse mais je ne comprend pas ce que représente
"poi".


Je me suis mal exprimé dazns ma question c'est une variable que je
cherche.


Merci encore
JM



"poy-poy" a écrit dans le message
de




news:
Bonjour GIBI68,

Je pense qu'une recherche marcherait mieux.

sub essai()
dim Lig as integer, Col as integer, add as string

Add Îlls.Find("poi").Address
lig = Cells.Find("poi").row
col = Cells.Find("poi").column

end sub

Cordialement
Benjamin

Bonjour,

Je ne connais pas l'instruction qui me permet de trouver une
cellule






par
la
valeur qu'elle contient et de me renvoyer la ligne et la
colonne de






cette
cellule.

EX: je cherche une cellule qui contient la valeur 7841L0 dans
une






feuille
comment connaître le n° de la ligne et de la colonne de la
cellule






qui
contient 7841L0

Merci d'avance car je me perd dans des FOR NEXT

Bonne journée





















1 2