[résolu] Comment faire une boucle de ce code au lieu de l'ecrir

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [résolu] Comment faire une boucle de ce code au lieu de l'ecrir

Angelo38

Bonjour je suis débutant en VBA et je dois faire des macro afin d'automatisé un certain nombre de chose
DOnc je fais un code qui fais plusieur fois la meme chose et j'aimerais savoir comment faire pour faire une boucle ?
voici mon code :

Code :

'recherche de la derniere case non vide correspondant à la zone "semaine1"
Selection.FormulaArray = _
"=INDEX(semaine1,MAX(ROW(semaine1)*NOT(ISBLANK(semaine1)))-ROW(semaine1)+1)"
'range le résultat de la derniere case non vide correspondant à la zone "semaine2" en A3
Range("A3" ).Select
'recherche de la derniere case non vide correspondant à la zone "semaine2"
Selection.FormulaArray = _
"=INDEX(semaine2,MAX(ROW(semaine2)*NOT(ISBLANK(semaine2)))-ROW(semaine2)+1)"

bien sur les zones qui s'appelent semaine1 et semaine2 ont déja été défini

Message édité par Angelo38 le 20-12-2005 à 16:16:06

Publicité

Angelo38

Personne pour m'aider ???

J'ai deja fait ca si ca peut vous faire comprendre ce que je veux

Code :

For i = 1 To 2
sem = "semaine" & i
'range le résultat de la derniere case non vide correspondant à la zone "semaine1" en A2
Range("A" & (i + 1)).Select
'recherche de la derniere case non vide correspondant à la zone "semaine1"
Selection.FormulaArray = _
"=INDEX(sem1,MAX(ROW(sem)*NOT(ISBLANK(sem)))-ROW(sem)+1)"
'recherche de la derniere case non vide correspondant à la zone "semaine1"
'Selection.FormulaArray = _
' "=INDEX(semaine2,MAX(ROW(semaine2)*NOT(ISBLANK(semaine2)))-ROW(semaine2)+1)"
Next i

le probleme est que il reconnait pas le sem donc le resultat est #NOM

Angelo38

On m'a donné la réponse sur un autre forum (je vais pas faire de pub je sais pas si on a le droit )
si ca interesse quelqu'un
Bref il fallait une fonction:

Code :

Function MaFormule(st As String) As String
MaFormule = "=INDEX(" & st & ",MAX(ROW(" & st & " )*NOT(ISBLANK(" & st & " )))-ROW(" & st & " )+1)"
End Function

puis mettre dans la macro :

Code :

For i = 1 To 2
'range le résultat de la derniere case non vide correspondant à la zone "semaineX" en A(x+1) ex semaine1 en A2
Range("A" & (i + 1)).Select
'recherche de la derniere case non vide correspondant à la zone "semaineX"
Selection.FormulaArray = MaFormule("Semaine" & i)
Next i

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[résolu] Comment faire une boucle de ce code au lieu de l'ecrir

Sujets relatifs
(vb6] copie de feuille avec formatage [ résolu ]	Ajouter 15 jours à une date [resolu]
[HTML/CSS] Probleme incomprehensible [RESOLU]	[VB6] traitement sur tableau excel très lent [résolu]
[resolu][VBE] Faire une macro pour copier un module ss excel	[C#][Winforms] [Resolu] Centrer automatiquement un panel dans une Form
Comment vérouiller une cellule par un code?	Créer un fichier vide en C. [Résolu]
Python/unicode: écrire de gauche à droite/de droite à gauche [résolu]	[Concours de code]Echauffement pour l'IOCCC
Plus de sujets relatifs à : [résolu] Comment faire une boucle de ce code au lieu de l'ecrir

Page générée en 0.032 secondes