Discussion :

[Tinien]

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

[Fouinard]

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é

[Invité]

Bonjour

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

Philippe

[Tinien]

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 :

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
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 ?

[ucfoutu]

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

[Fouinard]

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

[oOVaveOo]

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 :

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

Range("C3").Select

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

Code :

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

cells(i, 3).select

[Fouinard]

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 !

[Invité]

Bonjour,

Pourtant ce code fonctionne :

Code :

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

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

Comme l'a indiqué Fouinard.

[AlainTech]

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

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.