MACRO A REPETER SUR LIGNES INFERIEURES
Fermé
CHRISTOF26
Messages postés
3
Date d'inscription
jeudi 9 avril 2015
Statut
Membre
Dernière intervention
9 avril 2015
-
9 avril 2015 à 12:16
CHRISTOF26 Messages postés 3 Date d'inscription jeudi 9 avril 2015 Statut Membre Dernière intervention 9 avril 2015 - 9 avril 2015 à 13:59
CHRISTOF26 Messages postés 3 Date d'inscription jeudi 9 avril 2015 Statut Membre Dernière intervention 9 avril 2015 - 9 avril 2015 à 13:59
A voir également:
- MACRO A REPETER SUR LIGNES INFERIEURES
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment aller à la ligne sur excel - Guide
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Excel trier par ordre alphabétique en gardant les lignes - Guide
4 réponses
ozone_
Messages postés
1518
Date d'inscription
lundi 13 juillet 2009
Statut
Membre
Dernière intervention
2 juin 2023
478
9 avril 2015 à 12:47
9 avril 2015 à 12:47
Salut,
Y'a combien de ligne en dessous ?
Si on fait une boucle il faut un facteur d'arrêt.
Soit 20 lignes et on s'arrête,
Soit tant que la ligne du dessous n'est pas vide.
Est-ce que, quand A20 imaginons est vide alors ta création s'arrête là.
Soit de A5 à A19, on crée et comme A20 est vide alors on sort de la boucle.
Y'a combien de ligne en dessous ?
Si on fait une boucle il faut un facteur d'arrêt.
Soit 20 lignes et on s'arrête,
Soit tant que la ligne du dessous n'est pas vide.
Est-ce que, quand A20 imaginons est vide alors ta création s'arrête là.
Soit de A5 à A19, on crée et comme A20 est vide alors on sort de la boucle.
CHRISTOF26
Messages postés
3
Date d'inscription
jeudi 9 avril 2015
Statut
Membre
Dernière intervention
9 avril 2015
9 avril 2015 à 13:37
9 avril 2015 à 13:37
Bonjour, merci de ta réponse.
après ma 1ere ligne, en ai encore 19 autre puis plus rien.
Comment faire une boucle ?
après ma 1ere ligne, en ai encore 19 autre puis plus rien.
Comment faire une boucle ?
ozone_
Messages postés
1518
Date d'inscription
lundi 13 juillet 2009
Statut
Membre
Dernière intervention
2 juin 2023
478
Modifié par ozone_ le 9/04/2015 à 13:58
Modifié par ozone_ le 9/04/2015 à 13:58
J'ai essayer quelque chose mais comme je peux pas tester le code, je sais pas ce que ça va donner mais le principe est là :
Ou si le premier code ne fonctionne pas
Ici, la boucle For va être répété 20 fois avant de s'arrêter.
Et la cellule sera donc en premier lieu A5 -> Range("A" & i&)
Puis au second passage alors comme i est incrémenter la cellule sera alors A6, de même pour N.
Et ainsi de suite jusqu'à 25
1f u c4n r34d th1s u r34lly n33d t0 g37 l41d !
Sub AjoutTache() Dim OlApp As Object Dim NS As Object, ObjTask As Object Dim i As Integer Set OlApp = CreateObject("Outlook.Application") Set NS = OlApp.GetNamespace("MAPI") Set ObjTask = OlApp.CreateItem(olTaskItem) For i = 5 To 24 With ObjTask .Subject = Range("A" & i&) '.Body = "texte" .ReminderTime = Range("N" & i&) .ReminderSet = True .Display 'mettre en commentaire après mise au point End With ObjTask.Save Next End Sub
Ou si le premier code ne fonctionne pas
Sub AjoutTache() Dim OlApp As Object Dim NS As Object, ObjTask As Object Dim i As Integer Set OlApp = CreateObject("Outlook.Application") Set NS = OlApp.GetNamespace("MAPI") Set ObjTask = OlApp.CreateItem(olTaskItem) For i = 5 To 24 With ObjTask .Subject = [A&i] '.Body = "texte" .ReminderTime = [N&i] .ReminderSet = True .Display 'mettre en commentaire après mise au point End With ObjTask.Save Next End Sub
Ici, la boucle For va être répété 20 fois avant de s'arrêter.
Et la cellule sera donc en premier lieu A5 -> Range("A" & i&)
Puis au second passage alors comme i est incrémenter la cellule sera alors A6, de même pour N.
Et ainsi de suite jusqu'à 25
1f u c4n r34d th1s u r34lly n33d t0 g37 l41d !
CHRISTOF26
Messages postés
3
Date d'inscription
jeudi 9 avril 2015
Statut
Membre
Dernière intervention
9 avril 2015
9 avril 2015 à 13:59
9 avril 2015 à 13:59
merci je regarde cela et te dit. Merci pour ton aide.