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

5 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
poy-poy
Bonjour Gibi,

2 questions qui me viennent quand je vois le code :
As tu défini lig avant par un dim lig as integer ? parce que si tu es en
option explicit, il va refuser de prendre une variable inconnue.
As tu séléctionnée ta feuille 2 avant ? Le code ne la nommant pas, si tu ne
la séléctionne pas, tu vas être coller tes infos sur une autre feuille.

Pour ton problème, c'est que ta référence n'existe pas sur la feuille sur
laquelle tu cherches. 2 possibilité :
Soit tu n'as pas exactement les mêmes références dans les 2 feuilles,
il faudrait alors tester le find (on error resume next avant la ligne find
suffirait mais peut poser d'autres problèmes dans la suite de ton code, à toi
de voir)
Soit tu ne cherches pas sur la bonne feuille (cf pb précédent)

Cordialement
Benjamin


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


























Avatar
GIBI68
Merci de me relancer je suis toujours bloqué
J'ai créé un nouveau message que j'ai appelé copie de cellule dans lequel
j'ai mis la partie du code concernée.
For feuille = 1 To 11
For row = 1 To 1000 'nombre de lignes à adapter
If Sheets(feuille).Cells(row, 1) = "" Then Exit For
refpneu = Sheets(feuille).Cells(row, 1).Value 'nom
de la référence à chercher
refpneuval = Right$(refpneu, 6)


lig = Sheets("tarif2").Cells.Find(refpneuval).row: GoTo suite2 'ligne
de la même référence en feuille2
suite:
lig = 20000
suite2:
Sheets("tarif2").Cells(lig, 3) = Sheets(feuille).Cells(row, 10).Value
'on remplit X
Sheets("tarif2").Cells(lig, 2) = Sheets(feuille).Cells(row, 9).Value
'on remplit X
Sheets("tarif2").Cells(lig, 6) = Sheets(feuille).Cells(row, 3).Value
'on remplit X
Sheets("tarif2").Cells(lig, 7) = Sheets(feuille).Cells(row, 5).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 8) = Sheets(feuille).Cells(row, 6).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 9) = Sheets(feuille).Cells(row, 7).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 10) = Sheets(feuille).Cells(row, 8).Value
'on remplit Y
Next row
Next feuille
Lig est bien déclaré
Les infos se copient bien comme il faut et là où il faut.
Mais quand une référence est inconnue dans la feuille tarif2 ça plante.
Je voudrai quand cette référence n'existe pas qu'elle se crée dans la
^première cellule vide de la colonne A de la feuille Tarif2

Merci encore


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

2 questions qui me viennent quand je vois le code :
As tu défini lig avant par un dim lig as integer ? parce que si tu es en
option explicit, il va refuser de prendre une variable inconnue.
As tu séléctionnée ta feuille 2 avant ? Le code ne la nommant pas, si tu
ne

la séléctionne pas, tu vas être coller tes infos sur une autre feuille.

Pour ton problème, c'est que ta référence n'existe pas sur la feuille sur
laquelle tu cherches. 2 possibilité :
Soit tu n'as pas exactement les mêmes références dans les 2 feuilles,
il faudrait alors tester le find (on error resume next avant la ligne find
suffirait mais peut poser d'autres problèmes dans la suite de ton code, à
toi

de voir)
Soit tu ne cherches pas sur la bonne feuille (cf pb précédent)

Cordialement
Benjamin


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




























Avatar
poy-poy
Re Gibi,

Je pense qu'une gestion des erreures est le plus simple. Je n'ai pas compri
à quoi servait ton suite: lig 000 donc je l'ai enlevé, mais c'était
peut-être ton début de la gestion d'erreur.

Cordialement
Benjamin

Sub essai()

Dim lig As Integer, row As Integer

For feuille = 1 To 11
For row = 1 To 1000 'nombre de lignes à adapter
debut:
If Sheets(feuille).Cells(row, 1) = "" Then Exit For
refpneu = Sheets(feuille).Cells(row, 1).Value 'nomde
la référence à chercher
refpneuval = Right$(refpneu, 6)

On Error Resume Next
lig = Sheets("tarif2").Cells.Find(refpneuval).row
If Err.Number <> 0 Then GoTo problem

Sheets("tarif2").Cells(lig, 3) = Sheets(feuille).Cells(row, 10).Value
'on remplit X
Sheets("tarif2").Cells(lig, 2) = Sheets(feuille).Cells(row, 9).Value
'on remplit X
Sheets("tarif2").Cells(lig, 6) = Sheets(feuille).Cells(row, 3).Value
'on remplit X
Sheets("tarif2").Cells(lig, 7) = Sheets(feuille).Cells(row, 5).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 8) = Sheets(feuille).Cells(row, 6).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 9) = Sheets(feuille).Cells(row, 7).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 10) = Sheets(feuille).Cells(row, 8).Value
Next row
Next feuille

Exit Sub

problem:
Sheets("tarif2").Cells([A65536].End(xlUp).row + 1, 1) = refpneuval
Err.Clear
GoTo debut

End Sub


Merci de me relancer je suis toujours bloqué
J'ai créé un nouveau message que j'ai appelé copie de cellule dans lequel
j'ai mis la partie du code concernée.
For feuille = 1 To 11
For row = 1 To 1000 'nombre de lignes à adapter
If Sheets(feuille).Cells(row, 1) = "" Then Exit For
refpneu = Sheets(feuille).Cells(row, 1).Value 'nom
de la référence à chercher
refpneuval = Right$(refpneu, 6)


lig = Sheets("tarif2").Cells.Find(refpneuval).row: GoTo suite2 'ligne
de la même référence en feuille2
suite:
lig = 20000
suite2:
Sheets("tarif2").Cells(lig, 3) = Sheets(feuille).Cells(row, 10).Value
'on remplit X
Sheets("tarif2").Cells(lig, 2) = Sheets(feuille).Cells(row, 9).Value
'on remplit X
Sheets("tarif2").Cells(lig, 6) = Sheets(feuille).Cells(row, 3).Value
'on remplit X
Sheets("tarif2").Cells(lig, 7) = Sheets(feuille).Cells(row, 5).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 8) = Sheets(feuille).Cells(row, 6).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 9) = Sheets(feuille).Cells(row, 7).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 10) = Sheets(feuille).Cells(row, 8).Value
'on remplit Y
Next row
Next feuille
Lig est bien déclaré
Les infos se copient bien comme il faut et là où il faut.
Mais quand une référence est inconnue dans la feuille tarif2 ça plante.
Je voudrai quand cette référence n'existe pas qu'elle se crée dans la
^première cellule vide de la colonne A de la feuille Tarif2

Merci encore


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

2 questions qui me viennent quand je vois le code :
As tu défini lig avant par un dim lig as integer ? parce que si tu es en
option explicit, il va refuser de prendre une variable inconnue.
As tu séléctionnée ta feuille 2 avant ? Le code ne la nommant pas, si tu
ne

la séléctionne pas, tu vas être coller tes infos sur une autre feuille.

Pour ton problème, c'est que ta référence n'existe pas sur la feuille sur
laquelle tu cherches. 2 possibilité :
Soit tu n'as pas exactement les mêmes références dans les 2 feuilles,
il faudrait alors tester le find (on error resume next avant la ligne find
suffirait mais peut poser d'autres problèmes dans la suite de ton code, à
toi

de voir)
Soit tu ne cherches pas sur la bonne feuille (cf pb précédent)

Cordialement
Benjamin


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

































Avatar
GIBI68
Je n'ai plus de message d'erreur mais la référence ne se crée pas dans la
feuille Tarif2
Je ne maîtrise pas on error goto pour savoir ce qui se passe
Je cherche depuis ta réponse et je n'ai pas de piste peux-tu ENCORE m'aider
Merci


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

Je pense qu'une gestion des erreures est le plus simple. Je n'ai pas
compri

à quoi servait ton suite: lig 000 donc je l'ai enlevé, mais c'était
peut-être ton début de la gestion d'erreur.

Cordialement
Benjamin

Sub essai()

Dim lig As Integer, row As Integer

For feuille = 1 To 11
For row = 1 To 1000 'nombre de lignes à adapter
debut:
If Sheets(feuille).Cells(row, 1) = "" Then Exit For
refpneu = Sheets(feuille).Cells(row, 1).Value
'nomde

la référence à chercher
refpneuval = Right$(refpneu, 6)

On Error Resume Next
lig = Sheets("tarif2").Cells.Find(refpneuval).row
If Err.Number <> 0 Then GoTo problem

Sheets("tarif2").Cells(lig, 3) = Sheets(feuille).Cells(row, 10).Value
'on remplit X
Sheets("tarif2").Cells(lig, 2) = Sheets(feuille).Cells(row, 9).Value
'on remplit X
Sheets("tarif2").Cells(lig, 6) = Sheets(feuille).Cells(row, 3).Value
'on remplit X
Sheets("tarif2").Cells(lig, 7) = Sheets(feuille).Cells(row, 5).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 8) = Sheets(feuille).Cells(row, 6).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 9) = Sheets(feuille).Cells(row, 7).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 10) = Sheets(feuille).Cells(row, 8).Value
Next row
Next feuille

Exit Sub

problem:
Sheets("tarif2").Cells([A65536].End(xlUp).row + 1, 1) = refpneuval
Err.Clear
GoTo debut

End Sub


Merci de me relancer je suis toujours bloqué
J'ai créé un nouveau message que j'ai appelé copie de cellule dans
lequel


j'ai mis la partie du code concernée.
For feuille = 1 To 11
For row = 1 To 1000 'nombre de lignes à adapter
If Sheets(feuille).Cells(row, 1) = "" Then Exit For
refpneu = Sheets(feuille).Cells(row, 1).Value
'nom


de la référence à chercher
refpneuval = Right$(refpneu, 6)


lig = Sheets("tarif2").Cells.Find(refpneuval).row: GoTo suite2
'ligne


de la même référence en feuille2
suite:
lig = 20000
suite2:
Sheets("tarif2").Cells(lig, 3) = Sheets(feuille).Cells(row, 10).Value
'on remplit X
Sheets("tarif2").Cells(lig, 2) = Sheets(feuille).Cells(row, 9).Value
'on remplit X
Sheets("tarif2").Cells(lig, 6) = Sheets(feuille).Cells(row, 3).Value
'on remplit X
Sheets("tarif2").Cells(lig, 7) = Sheets(feuille).Cells(row, 5).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 8) = Sheets(feuille).Cells(row, 6).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 9) = Sheets(feuille).Cells(row, 7).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 10) = Sheets(feuille).Cells(row, 8).Value
'on remplit Y
Next row
Next feuille
Lig est bien déclaré
Les infos se copient bien comme il faut et là où il faut.
Mais quand une référence est inconnue dans la feuille tarif2 ça plante.
Je voudrai quand cette référence n'existe pas qu'elle se crée dans la
^première cellule vide de la colonne A de la feuille Tarif2

Merci encore


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

2 questions qui me viennent quand je vois le code :
As tu défini lig avant par un dim lig as integer ? parce que si tu es
en



option explicit, il va refuser de prendre une variable inconnue.
As tu séléctionnée ta feuille 2 avant ? Le code ne la nommant pas, si
tu



ne
la séléctionne pas, tu vas être coller tes infos sur une autre
feuille.




Pour ton problème, c'est que ta référence n'existe pas sur la feuille
sur



laquelle tu cherches. 2 possibilité :
Soit tu n'as pas exactement les mêmes références dans les 2 feuilles,
il faudrait alors tester le find (on error resume next avant la ligne
find



suffirait mais peut poser d'autres problèmes dans la suite de ton
code, à



toi
de voir)
Soit tu ne cherches pas sur la bonne feuille (cf pb précédent)

Cordialement
Benjamin


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



































Avatar
GIBI68
J'ai trouvé ça marche c'est sûrement pas terrible comme solution mais ça
marche
Merci pour ta patience
JM


"GIBI68" a écrit dans le message de news:
#
Je n'ai plus de message d'erreur mais la référence ne se crée pas dans la
feuille Tarif2
Je ne maîtrise pas on error goto pour savoir ce qui se passe
Je cherche depuis ta réponse et je n'ai pas de piste peux-tu ENCORE
m'aider

Merci


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

Je pense qu'une gestion des erreures est le plus simple. Je n'ai pas
compri

à quoi servait ton suite: lig 000 donc je l'ai enlevé, mais c'était
peut-être ton début de la gestion d'erreur.

Cordialement
Benjamin

Sub essai()

Dim lig As Integer, row As Integer

For feuille = 1 To 11
For row = 1 To 1000 'nombre de lignes à adapter
debut:
If Sheets(feuille).Cells(row, 1) = "" Then Exit For
refpneu = Sheets(feuille).Cells(row, 1).Value
'nomde

la référence à chercher
refpneuval = Right$(refpneu, 6)

On Error Resume Next
lig = Sheets("tarif2").Cells.Find(refpneuval).row
If Err.Number <> 0 Then GoTo problem

Sheets("tarif2").Cells(lig, 3) = Sheets(feuille).Cells(row, 10).Value
'on remplit X
Sheets("tarif2").Cells(lig, 2) = Sheets(feuille).Cells(row, 9).Value
'on remplit X
Sheets("tarif2").Cells(lig, 6) = Sheets(feuille).Cells(row, 3).Value
'on remplit X
Sheets("tarif2").Cells(lig, 7) = Sheets(feuille).Cells(row, 5).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 8) = Sheets(feuille).Cells(row, 6).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 9) = Sheets(feuille).Cells(row, 7).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 10) = Sheets(feuille).Cells(row, 8).Value
Next row
Next feuille

Exit Sub

problem:
Sheets("tarif2").Cells([A65536].End(xlUp).row + 1, 1) = refpneuval
Err.Clear
GoTo debut

End Sub


Merci de me relancer je suis toujours bloqué
J'ai créé un nouveau message que j'ai appelé copie de cellule dans
lequel


j'ai mis la partie du code concernée.
For feuille = 1 To 11
For row = 1 To 1000 'nombre de lignes à adapter
If Sheets(feuille).Cells(row, 1) = "" Then Exit For
refpneu = Sheets(feuille).Cells(row, 1).Value
'nom


de la référence à chercher
refpneuval = Right$(refpneu, 6)


lig = Sheets("tarif2").Cells.Find(refpneuval).row: GoTo suite2
'ligne


de la même référence en feuille2
suite:
lig = 20000
suite2:
Sheets("tarif2").Cells(lig, 3) = Sheets(feuille).Cells(row, 10).Value
'on remplit X
Sheets("tarif2").Cells(lig, 2) = Sheets(feuille).Cells(row, 9).Value
'on remplit X
Sheets("tarif2").Cells(lig, 6) = Sheets(feuille).Cells(row, 3).Value
'on remplit X
Sheets("tarif2").Cells(lig, 7) = Sheets(feuille).Cells(row, 5).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 8) = Sheets(feuille).Cells(row, 6).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 9) = Sheets(feuille).Cells(row, 7).Value
'on remplit Y
Sheets("tarif2").Cells(lig, 10) = Sheets(feuille).Cells(row, 8).Value
'on remplit Y
Next row
Next feuille
Lig est bien déclaré
Les infos se copient bien comme il faut et là où il faut.
Mais quand une référence est inconnue dans la feuille tarif2 ça
plante.



Je voudrai quand cette référence n'existe pas qu'elle se crée dans la
^première cellule vide de la colonne A de la feuille Tarif2

Merci encore


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



news:
Bonjour Gibi,

2 questions qui me viennent quand je vois le code :
As tu défini lig avant par un dim lig as integer ? parce que si tu
es




en
option explicit, il va refuser de prendre une variable inconnue.
As tu séléctionnée ta feuille 2 avant ? Le code ne la nommant pas,
si




tu
ne
la séléctionne pas, tu vas être coller tes infos sur une autre
feuille.




Pour ton problème, c'est que ta référence n'existe pas sur la
feuille




sur
laquelle tu cherches. 2 possibilité :
Soit tu n'as pas exactement les mêmes références dans les 2
feuilles,




il faudrait alors tester le find (on error resume next avant la
ligne




find
suffirait mais peut poser d'autres problèmes dans la suite de ton
code, à



toi
de voir)
Soit tu ne cherches pas sur la bonne feuille (cf pb précédent)

Cordialement
Benjamin


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