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 :
- Au niveau du second "if" comment lui dire de prendre la cellule non vide suivante ?
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
Voila des suggestions je sèche la![]()
Merci d'avance
Partager