Discussion :

[samimikha]

Bonjour tout le monde

Je suis sur excel 2003 et j'essaie de programmer une application et je bute sur une partie de mon code :
je fais des calculs sur une feuille1 et je voudrais qu'il me boucle de la 1ère colonne de la ligne 3 de la feuille2 à la dernière valeur non vide de cette même ligne

J'ai ébauché un semblant de code après quelques recherches ça ne fonctionne pas:

Code :

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

1
2
3
4
5
6
7
8
9
 Set plage = Range(Worksheets("feuil2").Cells(3, 1), [Worksheets("feuil2").Cells(3, 1)].End(xlToRight))
        nbcolonnes = plage.count
         For j = 2 To nbcolonnes
             If Feuil1.Cells(10, 2 + 7 * i).Value Like Feuil2.Cells(3, j).Value Then
 
                    col = j
                End If
 
         Next

si vous pouvez m'aider à transformer cet essai en but svp pour et merci d'avance

[oOVaveOo]

Tu te mets sur une cellule de ta ligne et tu fais

Code :

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

Selection.End(xlToRight).Select

Cela t'emmèneras à la première cellule à gauche de la première cellule vide de cette ligne.

Si tu as des cellules vides au milieu de ta ligne, il faut que tu te places en colonne IV et faire

Code :

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

Selection.End(xlToleft).Select

tu tomberas sur la dernière cellule non vide de ta ligne.

Tu peux retrouver ce code grâce à l'enregistreur de macro en faisant ctrl + flèches (haut/bas/gauche/droite)

[samimikha]

merci oOVaveOo pour ta réponse
c'est pas vraiment cela que je veux
je voudrais pouvoir avoir le nombre de colonnes d'un tableau qui se trouve sur une autre feuille (feuille2) et ensuite utiliser cette valeur pour faire une boucle
par exemple et cela tout en restant sur feuille1
for j=2 to cette valeur

j'espère avoir été plus claire sinon c'est avec plaisir que j'essaierai de l'être d'avantage

merci

[Invité]

Bonjour,

Regardez ici pour trouver la dernière colonne (entre autre) et les solutions possibles :

http://www.developpez.net/forums/d33...uille-calculs/

ensuite et par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Essai()
Set ws = Worksheets("Feuil2")
With ws
dc = Range("A2").End(xlToRight).Column
For j = 2 To dc
'code........
Next i
End With
End Sub

[decondelite]

La logique voudrait plutôt qu'on parte de la droite (colonne 256), qu'on utilise xlToLeft, si on la compare avec la méthode pour trouver la dernière ligne.

Ca fournit surtout de meilleurs résultats, car celle qui consiste à faire "de gauche à droite" s'arrêtera à la 1ère cellule vide, ce qu'on ne souhaite pas forcément.

[decondelite]

La logique voudrait plutôt qu'on parte de la droite (colonne 256), qu'on utilise xlToLeft, si on la compare avec la méthode pour trouver la dernière ligne.

Ca fournit surtout de meilleurs résultats, car celle qui consiste à faire "de gauche à droite" s'arrêtera à la 1ère cellule vide, ce qu'on ne souhaite pas forcément.

Et ça tu as essayé?

[samimikha]

bonjour et merci jacques_jean pour ta réponse
j'ai essayé ton code mais bizarrement il ne marche pas. il ne rentre même pas dans la boucle et quand je remplace dc par 40 par exemple cela fonctionne

j'ai parcouru le lien dont je te remercie et cela ne m'a pas expliqué pourquoi ton code ne fonctionne pas alors qu'il a l'air très correct

merci encore

[Invité]

Bonsoir,

Si vous avez une ou plusieurs colonnes vide(s) essayez comme le dit Decondelite :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Essai()
Set ws = Worksheets("Feuil2")
With ws
dc = Range("IV3").End(xlToLeft).Column
For j = 2 To dc
'code........
Next i
End With
End Sub