Comment faire une boucle ?

Bonjour amis developpeurs,

Je voudrais crée une boucle qui permettrait de copiez d'un tableau la donnée de la cellule la coller dans une case puis activer une autre macro, je voudrais que cette boucle me permettent de descendre a chaque fois d'une case et refaire cette opération.

Le tableau va de " AP8 " à " AP100 " Je voudrais donc boucler sur cette zone , ou alors arreter le programme des que la case est vide ( ce qui me parait mieux sachant que le nombre de case évolue.. )
Comment faire ? merci

Salut,

Tu peux faire ça avec une boucle while, avec une variable integer (qui commence à 8 dans ton cas) que tu incrémente à chaque case, et tu sors de ta boucle while lorsque la valeur de la case est égale à "" par exemple.

Pour lire la valeur de ta cellule utilise Cells(x,y) avec y correspondant au numéro de la colonne AP.

Pour plus d'informations sur l'utilisation de ces fonctions regarde dans l'aide d'excel, tout y est détaillé ;)

Bonjour

Cet article devrait t'aider : http://silkyroad.developpez.com/vba/boucles/

Philippe

j'ai pas d'accées aux aides en lignes,
je pourrais avoir un plan ? je débute en VB
je vais lire merci pour le lien.

Bon j'ai fais un essai avec le tuto mais sa ne marche pas
je vous met mon 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

dim i as integer i=8 While Not IsEmpty(Cells(i, AP)) Selection.Copy Range("G3:I3").Select ActiveSheet.Paste ' Lancement de la macro top10 public Workbooks.Open FileName:= _ "\\******Adresse du fichier" _ , UpdateLinks:=0 ActiveWindow.SmallScroll Down:=-12 Calculate ActiveWindow.SmallScroll Down:=-21 Range("C3").Select ActiveWindow.SmallScroll Down:=6 Windows("Portfolio endusers within dealer_template.xls").Activate Sheets("Endusers").Select Application.Goto Reference:="data" Selection.Sort Key1:=Range("J4"), Order1:=xlDescending, Key2:=Range("L4") _ , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Calculate ActiveWindow.Close False Windows("Dashboard Dealers TF_200809.xls").Activate Range("I30").Select i = i + 1 Wend

---

La fonction not est le probleme ?

Citation:

---

Envoyé par Tinien

La fonction not est le probleme ?

---

Voilà bien (ton expression "fonction") la meilleure preuve de ce que tu as vraiment besoin des bases (donc de ton aide en ligne, sans laquelle nul - même les plus avancés - ne peut aller très loin).
Not est un opérateur, pas une fonction.... (et c'est très loin d'être similaire).;)

Je n'ai pas vraiment le temps de regarder le code à l'intérieur de ta boucle mais, il y a un probleme dans l'utilisation de Cells, tu ne peux pas y mettre AP directement sous cette forme, ça va etre considéré comme une variable. Il faut que tu utilise : Cells(i,42)
42 correspondant à AP.

Si tu veux utiliser AP, tu peux mais il faut alors utiliser : Range("AP" + cstr(i))

Bonjour,

Il faudrait expliquer un peu mieux ce que le code devrait faire car ce n'est pas très clair.

Déjà, il est étonnant de trouver des adresses de cellules en dur dans une boucle :

Code:

---

Range("C3").Select

---

Si la selection doit changer à chaque passage dans la boucle, il devrait y avoir quelque chose du genre :

Code:

---

cells(i, 3).select

---

Si on ne change pas de colonne, il n'y a pas de probleme à utiliser la lettre en dur, ça a l'air d'etre son cas ici, par contre tout à l'heure on parlait de AP pas C.

Ensuite, l'utilisation de Select n'est pas la bonne méthode, puisqu'on peut effectuer exactement les memes opérations en partant directement de Cells(X,Y) à la place de Selection...

Et pour finir le code n'a meme pas l'air d'utiliser la sélection donc ces lignes sont totalement inutiles !

Bonjour,

Pourtant ce code fonctionne :

Code:

---

1 2 3 4

Dim i As Integer i = 8 While Not IsEmpty(Cells(i, 42)) 'suite du code

---

Comme l'a indiqué Fouinard.

C3 ne change pas, il y a juste la colonne 42 qui change,
j'ai modifier mon code mais je n'y arrive toujours pas :(

Bien évidemment "C3" ne peut pas changer, c'est une adresse de cellule pas une variable.

Si vous voulez par exemple que "C3" devienne la fois suivante "C4" etc, il faut utiliser une variable.

Mais sans autre précision de votre part, pour l'instant on ne peut qu'imaginer qu'il faut tester la dernière ligne de la colonne "C" contenant une donnée, du genre :

Code:

---

1 2	Dligne = Range("C65536").End(xlUp).Row Range("C:" & Dligne).Select

---

C3 ne dois pas changer , il y a seulement une changement sur AP.

Dans ce cas :

-dans votre colonne "AP" (42) vous recherchez des cellules vides ?
-il peut y en avoir plusieurs ?

Non il y a des valeurs , je veut que la boucle s'arrete des qu'il trouve une case vide

Dans ce cas il faut utiliser le code que jacques_jean à indiqué en modifiant C par AP :

Code:

---

Dligne = Range("AP65536").End(xlUp).Row

---

ce code permet de trouver le numéro de la derniere cellule NON vide,

donc ensuite il suffit de faire une simple boucle FOR (plus la peine d'utiliser WHILE...)

Code:

---

1 2 3

For i = 8 to Dligne ' le code... Next

---

Cette boucle vas donner à i toutes les valeurs entre 8 et le numéro de la derniere ligne non vide, exactement ce que tu recherches !

Citation:

---

Envoyé par Tinien

j'ai pas d'accées aux aides en lignes

---

Citation:

---

Envoyé par Tinien

je débute en VB

---

Et comment comptes-tu t'y prendre?

Venir nous demander le code tout fait pour tout ce que tu dois développer?

Ce n'est pas le but d'un forum.

Il me paraît aberrant de vouloir ou accepter de faire du développement sans les références du langage.
Comme l'a dit ucfoutu, personne (même les plus expérimentés) ne peut s'en passer.

Donc, installe ou fais-toi installer l'aide de VBA sans quoi tu ne pourras jamais aller bien loin.