j'ai une macro sur une feuille de calcul qui me sélectionne un moment donné
une cellule (cellule alléatoire), et à ce moment je lui donne l'instruction
suivante :
For i = (ligne alléatoire) To 21 Step -12
Rows(i & ":" & i - 20).Select
Rows(i & ":" & i - 20).Delete Shift:=xlUp
i = i - 20
Next
Si je donne un N° de ligne comme par example : For i = 1000 To 21 Step -12,
ma boucle fonctionne, mais comme mon fichier est alimenté par de nouveaux
éléments chaque jour, je ne désir pas ficher la ligne de départ (1000 dans
mon example)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Qu'est ce qui détermine la cellule alléatoire ? Cordialement Pascal
"Michel" a écrit dans le message de news:
Bonjour,
j'ai une macro sur une feuille de calcul qui me sélectionne un moment donné
une cellule (cellule alléatoire), et à ce moment je lui donne l'instruction
suivante :
For i = (ligne alléatoire) To 21 Step -12 Rows(i & ":" & i - 20).Select Rows(i & ":" & i - 20).Delete Shift:=xlUp i = i - 20 Next
Si je donne un N° de ligne comme par example : For i = 1000 To 21 Step -12,
ma boucle fonctionne, mais comme mon fichier est alimenté par de nouveaux éléments chaque jour, je ne désir pas ficher la ligne de départ (1000 dans mon example)
Merci
Bonjour
Qu'est ce qui détermine la cellule alléatoire ?
Cordialement
Pascal
"Michel" <Michel@discussions.microsoft.com> a écrit dans le message de
news:7A14B136-AB9D-4B2F-B259-5B03CF0AD354@microsoft.com...
Bonjour,
j'ai une macro sur une feuille de calcul qui me sélectionne un moment
donné
une cellule (cellule alléatoire), et à ce moment je lui donne
l'instruction
suivante :
For i = (ligne alléatoire) To 21 Step -12
Rows(i & ":" & i - 20).Select
Rows(i & ":" & i - 20).Delete Shift:=xlUp
i = i - 20
Next
Si je donne un N° de ligne comme par example : For i = 1000 To 21
Step -12,
ma boucle fonctionne, mais comme mon fichier est alimenté par de nouveaux
éléments chaque jour, je ne désir pas ficher la ligne de départ (1000 dans
mon example)
Bonjour Qu'est ce qui détermine la cellule alléatoire ? Cordialement Pascal
"Michel" a écrit dans le message de news:
Bonjour,
j'ai une macro sur une feuille de calcul qui me sélectionne un moment donné
une cellule (cellule alléatoire), et à ce moment je lui donne l'instruction
suivante :
For i = (ligne alléatoire) To 21 Step -12 Rows(i & ":" & i - 20).Select Rows(i & ":" & i - 20).Delete Shift:=xlUp i = i - 20 Next
Si je donne un N° de ligne comme par example : For i = 1000 To 21 Step -12,
ma boucle fonctionne, mais comme mon fichier est alimenté par de nouveaux éléments chaque jour, je ne désir pas ficher la ligne de départ (1000 dans mon example)
Merci
AV
Pour partir de la dernière ligne de la feuille :
For i = Cells.Find("*", , 1, , 1, 2).Row ....blablabla...
AV
Pour partir de la dernière ligne de la feuille :
For i = Cells.Find("*", , 1, , 1, 2).Row ....blablabla...
Bonjour Qu'est ce qui détermine la cellule alléatoire ? Cordialement Pascal
"Michel" a écrit dans le message de news:
Bonjour,
j'ai une macro sur une feuille de calcul qui me sélectionne un moment donné
une cellule (cellule alléatoire), et à ce moment je lui donne l'instruction
suivante :
For i = (ligne alléatoire) To 21 Step -12 Rows(i & ":" & i - 20).Select Rows(i & ":" & i - 20).Delete Shift:=xlUp i = i - 20 Next
Si je donne un N° de ligne comme par example : For i = 1000 To 21 Step -12,
ma boucle fonctionne, mais comme mon fichier est alimenté par de nouveaux éléments chaque jour, je ne désir pas ficher la ligne de départ (1000 dans mon example)
Merci
Bonjour Pascal,
En fait je me positionne automatiquement trois cellules en-dessous du
dernier enregistrement avec l'instruction suivante :
Bonjour
Qu'est ce qui détermine la cellule alléatoire ?
Cordialement
Pascal
"Michel" <Michel@discussions.microsoft.com> a écrit dans le message de
news:7A14B136-AB9D-4B2F-B259-5B03CF0AD354@microsoft.com...
Bonjour,
j'ai une macro sur une feuille de calcul qui me sélectionne un moment
donné
une cellule (cellule alléatoire), et à ce moment je lui donne
l'instruction
suivante :
For i = (ligne alléatoire) To 21 Step -12
Rows(i & ":" & i - 20).Select
Rows(i & ":" & i - 20).Delete Shift:=xlUp
i = i - 20
Next
Si je donne un N° de ligne comme par example : For i = 1000 To 21
Step -12,
ma boucle fonctionne, mais comme mon fichier est alimenté par de nouveaux
éléments chaque jour, je ne désir pas ficher la ligne de départ (1000 dans
mon example)
Bonjour Qu'est ce qui détermine la cellule alléatoire ? Cordialement Pascal
"Michel" a écrit dans le message de news:
Bonjour,
j'ai une macro sur une feuille de calcul qui me sélectionne un moment donné
une cellule (cellule alléatoire), et à ce moment je lui donne l'instruction
suivante :
For i = (ligne alléatoire) To 21 Step -12 Rows(i & ":" & i - 20).Select Rows(i & ":" & i - 20).Delete Shift:=xlUp i = i - 20 Next
Si je donne un N° de ligne comme par example : For i = 1000 To 21 Step -12,
ma boucle fonctionne, mais comme mon fichier est alimenté par de nouveaux éléments chaque jour, je ne désir pas ficher la ligne de départ (1000 dans mon example)
Merci
papou
Re Dans ces conditions : For i = Range("A65500").End(xlUp)(2).Row + 2 To 21 Step -12 Cordialement Pascal
"Michel" a écrit dans le message de news:
Bonjour Pascal,
En fait je me positionne automatiquement trois cellules en-dessous du dernier enregistrement avec l'instruction suivante :
