Discussion :

[coxi77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci d'avance

[Elstak]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

loop

[coxi77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 . Ca doit pas etre bien compliqué mais je suis vraiment pas doué .

Des idées ?

[Elstak]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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à )

[conconbrr]

mince alors elstak m'a devancé :p

[Elstak]

Toujours aussi lent le comcombre

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

*cellule non vide suivant le mot "toto"*

EDIT : si tu as une meilleur solution je t'ecoute

[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é

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 !

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 )

[Elstak]

Haha !

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

mais oui c'est ca

en tout cas vaut mieux que ce soit moi que toi

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

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 )

[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.

[Elstak]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[coxi77]

Merci ca marche !

Aller j'arrete de vous embetez

[conconbrr]

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 ( ) je te trouves pas très reconnaissant SNif