recherceh une valeur dans une ligne et recopier la valeur dans une cellule

Le
sleg
Bonjour,

je m'explique ( enfin jevias essayer ;-) ).

voila j'ai un classeur excel avec 8 feuilles dans un feuille nommée
"data" j'ai dans ma colonne J l'une des valeurs suivantes :
ASSISTANCE CONSEILS
DDE DE SERVICE
DDE D'EXPLOITATION
INCIDENT
INCIDENT D'EXPLOITATION
DEMANDE

Le probleme est que sur certainne ligne cette valeur est contenue dans
une autre colonne de la meme ligne et j'aimerai par macro replacer
cette valeur en J.

en gros si dans J j'ai l'une de mes valeurs de references je ne fais
rien si je n'ai pas cette valeur je la cherche dans la ligne et je la
recopie en colonne J de la meme ligne.

merci de votre aide et bonne journée.


PS : pour info la liste est contenu dans une feuille de mon classeur
nommée "Ref" en A2 à A7:
ASSISTANCE CONSEILS
DDE DE SERVICE
DDE D'EXPLOITATION
INCIDENT
INCIDENT D'EXPLOITATION
DEMANDE
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 #18119431
Salut à toi

Je te propose ce code :

For i = 0 To 5
Donnée = Split("ASSISTANCE CONSEILS/DDE DE SERVICE/DDE
D'EXPLOITATION/INCIDENT/INCIDENT D'EXPLOITATION/DEMANDE", "/")(i)
Trouvé = Cells.Find(What:=Donnée, After:=Range("A1"), LookIn:=xlValues,
LookAt _
:=xlWhole).Address
If Trouvé <> "" Then
TrouvéSuivante = Trouvé
If Range(Trouvé).Column <> 10 Then
Range("J" & Range(Trouvé).Row) = Range(Trouvé)
End If
For j = 1 To Range("A1").SpecialCells(xlLastCell).Row
TrouvéSuivante = Cells.FindNext(After:=Range(TrouvéSuivante)).Address
If TrouvéSuivante <> Trouvé Then
If Range(TrouvéSuivante).Column <> 10 Then
Range("J" & Range(TrouvéSuivante).Row) = Range(TrouvéSuivante)
Range(TrouvéSuivante) = ""
End If
Else
Range(Trouvé) = ""
Exit For
End If
Next
End If
Next

Celà devrait convenir
Dis moi !!!
sleg
Le #18120131
merci de ton aide j'ai coller le code comme ça

Sheets("data").Select
For i = 0 To 5
Donnée = Split("ASSISTANCE CONSEILS/DDE DE SERVICE/DDE D 'EXPLOITATION/
INCIDENT/INCIDENT D'EXPLOITATION/DEMANDE", "/")(i)
Trouvé = Cells.Find(What:=Donnée, After:=Range("A1"),
LookIn:=xlValues, LookAt:=xlWhole).Address
If Trouvé <> "" Then
TrouvéSuivante = Trouvé
If Range(Trouvé).Column <> 10 Then
Range("J" & Range(Trouvé).Row) = Range(Trouvé)
End If
For j = 1 To Range("A1").SpecialCells(xlLastCell).Row
TrouvéSuivante = Cells.FindNext(After:=Range
(TrouvéSuivante)).Address
If TrouvéSuivante <> Trouvé Then
If Range(TrouvéSuivante).Column <> 10 Then
Range("J" & Range(TrouvéSuivante).Row) = Range(TrouvéSuivante)
Range(TrouvéSuivante) = ""
End If
Else
Range(Trouvé) = ""
Exit For
End If
Next
End If
Next

et j'ai une erreur de type variable objet ou variable de bloc non
with non defini.

une idée ?

merci de ton aide
On 12 déc, 12:07, FFO
Salut à toi

Je te propose ce code :

For i = 0 To 5
Donnée = Split("ASSISTANCE CONSEILS/DDE DE SERVICE/DDE
D'EXPLOITATION/INCIDENT/INCIDENT D'EXPLOITATION/DEMANDE", "/")(i)
    Trouvé = Cells.Find(What:=Donnée, After:=Range("A1"), L ookIn:=xlValues,
LookAt _
        :=xlWhole).Address
    If Trouvé <> "" Then
    TrouvéSuivante = Trouvé
    If Range(Trouvé).Column <> 10 Then
    Range("J" & Range(Trouvé).Row) = Range(Trouvé)
    End If
    For j = 1 To Range("A1").SpecialCells(xlLastCell).Row
    TrouvéSuivante = Cells.FindNext(After:=Range(TrouvéSuivan te)).Address
    If TrouvéSuivante <> Trouvé Then
    If Range(TrouvéSuivante).Column <> 10 Then
    Range("J" & Range(TrouvéSuivante).Row) = Range(TrouvéSuivan te)
    Range(TrouvéSuivante) = ""
    End If
    Else
    Range(Trouvé) = ""
    Exit For
    End If
    Next
    End If
    Next

Celà devrait convenir
Dis moi !!!


FFO
Le #18120561
Rebonjour à toi

Effectivement j'ai oublié de traiter dans mon code le cas ou un élément de
recherche parmis ta liste était absent ce qui doit être la raison de ce Bug

Pour s'en affranchir il faut rajouter cette ligne :

On Error Resume Next

comme ceci :

Sheets("data").Select
For i = 0 To 5
Donnée = Split("ASSISTANCE CONSEILS/DDE DE SERVICE/DDE D 'EXPLOITATION/
INCIDENT/INCIDENT D'EXPLOITATION/DEMANDE", "/")(i)
On Error Resume Next
Trouvé = Cells.Find(What:=Donnée, After:=Range("A1"),
LookIn:=xlValues, LookAt:=xlWhole).Address
If Trouvé <> "" Then
TrouvéSuivante = Trouvé
If Range(Trouvé).Column <> 10 Then
Range("J" & Range(Trouvé).Row) = Range(Trouvé)
End If
For j = 1 To Range("A1").SpecialCells(xlLastCell).Row
TrouvéSuivante = Cells.FindNext(After:=Range
(TrouvéSuivante)).Address
If TrouvéSuivante <> Trouvé Then
If Range(TrouvéSuivante).Column <> 10 Then
Range("J" & Range(TrouvéSuivante).Row) = Range(TrouvéSuivante)
Range(TrouvéSuivante) = ""
End If
Else
Range(Trouvé) = ""
Exit For
End If
Next
End If
Next


Mille excuses

Maintenant ce Bug révèle qu'un des critères de recherche est absent de ta
feuille
Peut être est ce normal ou vérifier l'exact écriture du terme recherché
A toi de voir

Fais des essais et dis moi !!!!
sleg
Le #18121011
Re moi,

la c curieux lorsque je lance la macro cette derniere me supprime la
premiere cellule rencontrée ou il y a dde service et se termine sans
erreur ? mais ne va pas me cherche l'info pour les lignes sans
l'informaton " donnée" ?

une idée ?



On 12 déc, 13:59, FFO
Rebonjour à toi

Effectivement j'ai oublié de traiter dans mon code le cas ou un élé ment de
recherche parmis ta liste était absent ce qui doit être la raison de ce Bug

Pour s'en affranchir il faut rajouter cette ligne :

On Error Resume Next

comme ceci :

Sheets("data").Select
For i = 0 To 5
Donnée = Split("ASSISTANCE CONSEILS/DDE DE SERVICE/DDE D 'EXPLOITATIO N/
INCIDENT/INCIDENT D'EXPLOITATION/DEMANDE", "/")(i)
On Error Resume Next
Trouvé = Cells.Find(What:=Donnée, After:=Range("A1"),
LookIn:=xlValues, LookAt:=xlWhole).Address
If Trouvé <> "" Then
TrouvéSuivante = Trouvé
If Range(Trouvé).Column <> 10 Then
Range("J" & Range(Trouvé).Row) = Range(Trouvé)
End If
For j = 1 To Range("A1").SpecialCells(xlLastCell).Row
TrouvéSuivante = Cells.FindNext(After:=Range
(TrouvéSuivante)).Address
If TrouvéSuivante <> Trouvé Then
If Range(TrouvéSuivante).Column <> 10 Then
Range("J" & Range(TrouvéSuivante).Row) = Range(TrouvéSuivante)
Range(TrouvéSuivante) = ""
End If
Else
Range(Trouvé) = ""
Exit For
End If
Next
End If
Next

Mille excuses

Maintenant ce Bug révèle qu'un des critères de recherche est absent de ta
feuille
Peut être est ce normal ou vérifier l'exact écriture du terme reche rché
A toi de voir

Fais des essais et dis moi !!!!


sleg
Le #18121001
Voici le lien vers mon fichier

http://www.cijoint.fr/cjlink.php?file=cj200812/cijTa7FpRb.xls

merci encore


On 12 déc, 13:59, FFO
Rebonjour à toi

Effectivement j'ai oublié de traiter dans mon code le cas ou un élé ment de
recherche parmis ta liste était absent ce qui doit être la raison de ce Bug

Pour s'en affranchir il faut rajouter cette ligne :

On Error Resume Next

comme ceci :

Sheets("data").Select
For i = 0 To 5
Donnée = Split("ASSISTANCE CONSEILS/DDE DE SERVICE/DDE D 'EXPLOITATIO N/
INCIDENT/INCIDENT D'EXPLOITATION/DEMANDE", "/")(i)
On Error Resume Next
Trouvé = Cells.Find(What:=Donnée, After:=Range("A1"),
LookIn:=xlValues, LookAt:=xlWhole).Address
If Trouvé <> "" Then
TrouvéSuivante = Trouvé
If Range(Trouvé).Column <> 10 Then
Range("J" & Range(Trouvé).Row) = Range(Trouvé)
End If
For j = 1 To Range("A1").SpecialCells(xlLastCell).Row
TrouvéSuivante = Cells.FindNext(After:=Range
(TrouvéSuivante)).Address
If TrouvéSuivante <> Trouvé Then
If Range(TrouvéSuivante).Column <> 10 Then
Range("J" & Range(TrouvéSuivante).Row) = Range(TrouvéSuivante)
Range(TrouvéSuivante) = ""
End If
Else
Range(Trouvé) = ""
Exit For
End If
Next
End If
Next

Mille excuses

Maintenant ce Bug révèle qu'un des critères de recherche est absent de ta
feuille
Peut être est ce normal ou vérifier l'exact écriture du terme reche rché
A toi de voir

Fais des essais et dis moi !!!!


FFO
Le #18122031
Rebonjour à toi

Dans le code de la Macro le paramètre de recherche dans la variable Donnée
avait pour l'itème "DDE D'EXPLOITATION" : "DDE D' EXPLOITATION

Un espace en trop qui mettait à mal le résultat

J'ai passé aprés cette correction la Macro et j'ai bien obtenu en colonne J
tous les paramètres disséminés
Pour vérification j'ai vidé cette colonne et j'ai recherché chaque terme
dans l'ensemble de la feuille sans en trouvé un
Conclusion ils étaient bien tous ramener sur cette colonne

Qu'entends tu par :

"la c curieux lorsque je lance la macro cette derniere me supprime la
premiere cellule rencontrée ou il y a dde service et se termine sans
erreur ? mais ne va pas me cherche l'info pour les lignes sans
l'informaton " donnée" ? "

Peux tu préciser car ce n'est pas ce que j'obtiens

Sur ce lien ton fichier avec la petite correction concernant le critère "DDE
D'EXPLOITATION"

http://www.cijoint.fr/cjlink.php?file=cj200812/cijbovUx52.xls

Fais des essais et dis moi !!!!
sleg
Le #18121991
donc la je recuperer bien mes donnée mais toujours le meme probleme si
tu relance lamacro hsitoire tu vera que les premiere information de la
colonne J s'efface ?

merci de ton aide


On 12 déc, 16:50, FFO
Rebonjour à toi

Dans le code de la Macro le paramètre de recherche dans la variable Don née
avait pour l'itème "DDE D'EXPLOITATION" : "DDE D' EXPLOITATION

Un espace en trop qui mettait à mal le résultat

J'ai passé aprés cette correction la Macro et j'ai bien obtenu en col onne J
tous les paramètres disséminés
Pour vérification j'ai vidé cette colonne et j'ai recherché chaque terme
dans l'ensemble de la feuille sans en trouvé un
Conclusion ils étaient bien tous ramener sur cette colonne

Qu'entends tu par :

"la c curieux lorsque je lance la macro cette derniere me supprime la
premiere cellule rencontrée ou il y a dde service et se termine sans
erreur ? mais ne va pas me cherche l'info pour les lignes sans
l'informaton " donnée" ? "

Peux tu préciser car ce n'est pas ce que j'obtiens

Sur ce lien ton fichier avec la petite correction concernant le critère "DDE
D'EXPLOITATION"

http://www.cijoint.fr/cjlink.php?file=cj200812/cijbovUx52.xls

Fais des essais et dis moi !!!!


sleg
Le #18122541
bonsoir,

a premiere vue c'est la ligne Range(Trouvé) = "" en fi nde macro qui
posait le probleme

grand merci pourton aide si precieuse.

bon week-end.


On 12 déc, 17:03, sleg
donc la je recuperer bien mes donnée mais toujours le meme probleme si
tu relance lamacro hsitoire tu vera que les premiere information de la
colonne J s'efface ?

merci de ton aide

On 12 déc, 16:50, FFO


> Rebonjour à toi

> Dans le code de la Macro le paramètre de recherche dans la variable D onnée
> avait pour l'itème "DDE D'EXPLOITATION" : "DDE D' EXPLOITATION

> Un espace en trop qui mettait à mal le résultat

> J'ai passé aprés cette correction la Macro et j'ai bien obtenu en c olonne J
> tous les paramètres disséminés
> Pour vérification j'ai vidé cette colonne et j'ai recherché chaqu e terme
> dans l'ensemble de la feuille sans en trouvé un
> Conclusion ils étaient bien tous ramener sur cette colonne

> Qu'entends tu par :

> "la c curieux lorsque je lance la macro cette derniere me supprime la
> premiere cellule rencontrée ou il y a dde service et se termine sans
> erreur ? mais ne va pas me cherche l'info pour les lignes sans
> l'informaton " donnée" ? "

> Peux tu préciser car ce n'est pas ce que j'obtiens

> Sur ce lien ton fichier avec la petite correction concernant le critè re "DDE
> D'EXPLOITATION"

>http://www.cijoint.fr/cjlink.php?file=cj200812/cijbovUx52.xls

> Fais des essais et dis moi !!!!- Masquer le texte des messages préc édents -

- Afficher le texte des messages précédents -


FFO
Le #18122881
Rebonjour

Effectivement je demandais au code de vider la 1° cellule trouvée puisque
rapportée en j
Mais je n'ai pas pris en considération le fait qu'elle puisse être aussi en J
J'ai donc apporté une correction
J'en est profité pour augmenter la boucle qui recherche le critère dans les
cellules suivantes car si elles sont particulièrement nombreuses sa limite
empêchait d'aller jusqu'à la derniere et donc rendait imparfait le résultat
J'ai donc mis une valeur qui permet de palier à toute éventualité

Sur ce lien ton document corrigé ainsi

http://www.cijoint.fr/cjlink.php?file=cj200812/cij77RcVD2.xls

Fais des essais et dis moi !!!!
Publicité
Poster une réponse
Anonyme