[VBA-E] Recherche d'une valeur

Version imprimable

Salut a tous ! J'ai besoin de votre d'aide !

Je vous explique ce que je voudrais faire :
En gros des que l'on rencontre le mot "toto" sur une ligne j'aimerai que la prochaine cellule non vide située sur la meme ligne que le mot "toto" soit copié en A1.

Petit exemple :

Ligne 1 tata cellule vide valeur1

Ligne 2 titi cellule vide valeur2

Ligne 3 toto cellule vide cellule vide valeur3

*copie de la valeur3 dans la cellule A1*

A noter que le mot "toto" est toujours situé dans la colonne D.

J'ai deja réalisé une macro mais il y a plusieurs problème. Voila le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Sub Rech() Dim DernièreLigne As Long DernièreLigne = Worksheets("Feuil1").UsedRange.Row - 1 DernièreLigne = DernièreLigne + Worksheets("Feuil1").UsedRange.Rows.Count For i = 1 To DernièreLigne If Cells(i, 4).Value = "toto" Then For j = 4 To 10 If Cells(i, j).Value = *cellule non vide suivant le mot "toto"* Then Cells(i, j).Select End If Selection.Cut Cells(1, 1).Select Worksheets("Feuil1").Paste Next j End If Next i End Sub
- Au niveau du second "if" comment lui dire de prendre la cellule non vide suivante ?

Voila des suggestions je sèche la :roll:

Merci d'avance

Code:

1 2 3 4 5 6 7 8 9 For j = 4 To 10 If Cells(i, j).Value = *cellule non vide suivant le mot "toto"* Then Cells(i, j).Select Selection.Cut Cells(1, 1).Select Worksheets("Feuil1").Paste Next j
toto est dans la colonne "D" donc recherhce à partie de la colonne 5 et pas 4...

pas de boucle for ici... un while convient mieux.
Si tu es sur qu'il y a une cellule non vide le code suivant ira
Code:

1 2 3 4 5 k=5 do while (cells(i,k)="" and k<256) k=k+1 loop cells(i,k).copy
loop

Merci ca marche niquel !

Dernier problème :

Dans le cas ou plusieurs lignes contiennent le mot "toto" seul la dernière valeur est présente en A1 ( normal toutes les autres sont effacées par la valeur suivante ). J'ai essayé de faire un compteur pour que les valeurs ne se chevauchent pas et que la première valeur rencontrée vienne en A1, la seconde en A2, la 3e en A3 etc...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 For i = 1 To DernièreLigne If Cells(i, 4).Value = "toto" Then k = 5 Do While (Cells(i, k) = "" And k < 20) k = k + 1 Loop l = 0 Cells(i, k).Cut Cells(1 + l, 1).Select Worksheets("Feuil1").Paste End If l = l + 1 Next i
Marche pas :aie: . Ca doit pas etre bien compliqué mais je suis vraiment pas doué :oops: .

Des idées ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
For i = 1 To DernièreLigne
 
    If Cells(i, 4).Value = "toto" Then
 
    k = 5
 
    Do While (Cells(i, k) = "" And k < 20)
    k = k + 1
    Loop
 
    l = 1
    Cells(i, k).Cut
    Cells(l, 1).Select
    Worksheets("Feuil1").Paste
    l = l + 1
    End If
 
 
 
Next i

02/08/2006, 15h34
conconbrr

Euh ton l=l+1 tu devrais plutôt le mettre dans ton "If" parceque sinon tu vas l'incrémenter même quand le code ne lit pas toto...

J'ai pas bien pigé ce que le vilain elstak t'avait dit de faire... :)
Il sert à quoi son do while (ça sent le bidouillage là ;))
02/08/2006, 15h35
conconbrr

mince alors elstak m'a devancé :p
02/08/2006, 15h37
Elstak

Toujours aussi lent le comcombre :mouarf:

le while sert à copier la premiere cellule non vide... le while test le contenu des cellules et nous donne quelle est la premiere cellule non vide :P

Citation:

*cellule non vide suivant le mot "toto"*

EDIT : si tu as une meilleur solution je t'ecoute :mouarf: :mouarf:
02/08/2006, 15h40
conconbrr

Ah oki parceque moi j'avais cru comprendre que c'était la cellule juste à droite de celle contenant "toto"... C'est pour ça que je pigais pas trop l'utilité :lol:

C'est vrai t'as été plus rapide mais toi en même temps tu connaissais déjà le code vu que c'est toi qui l'avait fait ! 8-)

EDIT:non non ça me va tt à fait :) si tu veux je pourrais te sortir un truc alambiqué mais je pense que ta solution serait de toute manière plus simple et rapide (ça y est c'est dit ;))
02/08/2006, 15h46
Elstak

Haha !

Citation:

tu connaissais déjà le code vu que c'est toi qui l'avait fait !

mais oui c'est ca :P

en tout cas vaut mieux que ce soit moi que toi

Citation:

j'avais cru comprendre que c'était la cellule juste à droite de celle contenant "toto"...

:mouarf: :mouarf:

sinon coxi.... tu aurais pu le deviner car en voyant que la valeur se copiait dans la colonne A mais sur la meme ligne que la ligne où il y a toto donc qu'il prenait l'indice du "i" (enfin que ton "l" augementait de trop et qu'il etait mal placé... et y'avait pas beaucoup d'autre endroit où il pouvait aller ;) )
02/08/2006, 15h51
coxi77

J'avais justement à l'origine placé mon l=l+1 dans le if mais dans les 2 cas ca me met toujours les valeurs dans la cellule A1. :(

Et voilà je fais le malin et on voit le résultat :mouarf:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
l = 1
For i = 1 To DernièreLigne

    If Cells(i, 4).Value = "toto" Then
    
    k = 5
    
    Do While (Cells(i, k) = "" And k < 20)
    k = k + 1
    Loop    
    
    Cells(i, k).Cut
    Cells(l, 1).Select
    Worksheets("Feuil1").Paste
    l = l + 1
    End If
    
   
        
Next i

02/08/2006, 16h13
coxi77

Merci ca marche !

Aller j'arrete de vous embetez ;)
03/08/2006, 09h27
conconbrr

:P Moi je trouve elstak vilain et assez peu reconnaissant....

Après le temps que j'ai passé à lui expliquer comment marcher la création de deux malheureux seuils sur un graphique (:mouarf: :mouarf: ) je te trouves pas très reconnaissant SNif :P