Besoin d'aide pour une macro excel : urgent !

Question

Bonjour,

J'ai un fichier excel dans lequel je dois rechercher la cha&#238;ne "note", jusque l&#224; &#231;a va, mais c'est apr&#232;s que &#231;a se complique pour moi en tout cas !

La cha&#238;ne "note" ne se trouve que dans la colonne A.
Une fois trouv&#233;e, il faut copier le contenu de la cellule G, sur la ligne o&#249; se trouve "note". Puis ce contenu doit &#234;tre coll&#233; &#224; toutes les cellules G en-dessous tant que la cha&#238;ne "note" n'est pas retrouv&#233;e dans la colonne A. Si "note" est de nouveau trouv&#233;e, alors on recommence, on copie la cellule G correspondante et on colle le contenu dans les cellules du dessous, etc. Et on s'arr&#234;te une fois que cellule A est vide.

Mon probl&#232;me est que je ne connais pas d'avance les cellules &#224; copier. Mais je n'arrive pas &#224; trouver comment faire pour indiquer de copier la cellule correspondant &#224; une variable... Apparemment on ne peut pas faire : 
Range("variable").Select ou Cells(ligne, 7).select

J'esp&#232;re que vous me comprenez, j'ai vraiment besoin d'aide... Je d&#233;bute mais il faut que ce soit fait tr&#232;s vite.

Merci d'avance.

nanougat · Answer

Bonsoir



Qu'as tu dans ta colonne A ? 



A1 : note

A2 : ?    = rien, note, x ?

A3 : ?    = rien, note, x ?

A4 : note ou note A ?

.......



Cordialement

cs_DURANDO · Answer

Salut &#224; toi,

Tu peux effectivement passer une variable string a range() en
convertissant integer vers string (str) et supprimant les espaces en
partant de gauche (ltrim). 

Voici le code qui devrait resoudre ton PB:



' recherche de chaine dans une colonne

Function rechercher(Colonne, chaine As String, ByRef debut, colonnecopie) As Boolean

If colonnecopie > "" Then

cellule = colonnecopie & LTrim(Str(debut))

valeurcopie = Range(cellule).Value

End If

j = False

Do While j = 0

  debut = debut + 1

  cellule = Colonne & LTrim(Str(debut))

  j = InStr(1, UCase(Range(cellule).Value), chaine, 4) > 0

   If (Range(cellule).Value = "") Then Exit Do

 If Not j And colonnecopie > "" Then Range(colonnecopie & LTrim(Str(debut))) = valeurcopie

Loop

rechercher = j

End Function





Sub Macro1()

'

' recherche de note dans la colonne A a partir de ligne 1

i = 1

If rechercher("A", "NOTE", i, "") Then MsgBox "Note trouv&#233; en cellule " & "A" & LTrim(Str(i))

'continuer recherche en ecrivant le contenu de colonne G de la ligne note trouvee

While rechercher("A", "NOTE", i, "G")

Wend

End Sub



Pour + infos n'h&#233;site pas a reposer question .

A+




C'est parceque les c.. sont plus nombreux qu'ils ont forc&#233;ment raison!(dixit Coluche) 
Une seule ligne de conduite, l'objectivit&#233;.

cs_Ques · Answer

Merci beaucoup, je vais essayer ce code ;-)

cs_DURANDO · Answer

d&#233;sol&#233;, mais je suis all&#233; un peu trop vite il vaut mieux modifier la ligne suivante :

   j =  InStr(1, UCase(Range(cellule).Value), chaine,  4 ) > 0

en 

   j  = InStr(1, UCase(Range(cellule).Value), chaine, len(chaine)) > 0



A+


C'est pas parceque les c.. sont plus nombreux qu'ils ont forc&#233;ment raison!(dixit Coluche) 
Une seule ligne de conduite, l'objectivit&#233;.

cs_Ques · Answer

Arf d&#233;sol&#233;e je suis vraiment novice... Mais j'ai encore un soucis, c'est s&#251;rement tout b&#234;te mais je ne comprends pas tout !

Lorsque je lance la macro, j'ai un message dans le Microsoft visual basic :

Run-time error '5'
Invalid procedure call or argument

Quand je clique sur Debug, il surligne cette ligne en jaune : 

j = InStr(1, UCase(Range(cellule).Value), chaine, Len(chaine)) > 0

Qu'est ce que je dois faire ?

Encore merci

cs_DURANDO · Answer

Dans un cas comme celui la, je te conseille de d&#233;composer toute les
instruction de la ligne afin de trouver laquelle pose probl&#232;me. C'est
peut-&#234;tre un pb de version...



Remplace ta ligne :

j = InStr(1, UCase(Range(cellule).Value), chaine, Len(chaine)) > 0



 par ceci : 

b = range(cellule).value

c = Ucase(range(cellule).value)

d= len (chaine)

e = InStr(1, UCase(Range(cellule).Value), chaine, Len(chaine)) 
j = InStr(1, UCase(Range(cellule).Value), chaine, Len(chaine)) > 0



Ensuite, ex&#233;cute ta macro en pas a pas avec F8. Tu pourras ainsi suivre
ta macro ligne apr&#232;s ligne. Au cours de ce test, tu remarqueras que le
survole des variables de ta ligne fait appara&#238;tre l'&#233;tat de la dite
variable.

N'h&#233;site pas &#224; poser question si bloque encore.

A+




C'est pas parceque les c.. sont plus nombreux qu'ils ont forc&#233;ment raison!(dixit Coluche) 
Une seule ligne de conduite, l'objectivit&#233;.

cs_Ques · Answer

Ca y est &#231;a marche ! Merci beaucoup !

J'ai du mettre comme ceci : 

j = InStr(UCase(Range(cellule).Value), chaine) > 0

Je sais pas pourquoi mais du coup &#231;a fonctionne ! Comme je t'ai dit je suis d&#233;butante... lol

Encore merci, mais il se peut que j'ai effectivement encore besoin d'aide.

A+

Besoin d'aide pour une macro excel : urgent !

7 réponses

Discussions similaires