Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates
je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé
un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin
des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont
ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je
voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates
je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé
un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin
des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont
ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je
voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates
je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé
un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin
des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont
ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je
voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Bonjour Marc,
Le code que tu publies dans ton message et qui règle la hauteur des lignes
de ta plage peut aussi s'écrire :
Sub hlig()
Dim deRLig As Long
deRLig = Range("b789").End(xlUp).Row
Range("b3:b" & deRLig).RowHeight = 30.75
End Sub
pour ton souci, l'important est de bien placer le calcul ou recalcul de la
dernière ligne du tableau
--
Avec plaisir
Philippe.R
"Marc" a écrit dans le message de
news:Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates
je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé
un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin
des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont
ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je
voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Bonjour Marc,
Le code que tu publies dans ton message et qui règle la hauteur des lignes
de ta plage peut aussi s'écrire :
Sub hlig()
Dim deRLig As Long
deRLig = Range("b789").End(xlUp).Row
Range("b3:b" & deRLig).RowHeight = 30.75
End Sub
pour ton souci, l'important est de bien placer le calcul ou recalcul de la
dernière ligne du tableau
--
Avec plaisir
Philippe.R
"Marc" <Marc@discussions.microsoft.com> a écrit dans le message de
news:5B703BDD-13BD-4057-898A-E6F27067804F@microsoft.com...
Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates
je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé
un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin
des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont
ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je
voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Bonjour Marc,
Le code que tu publies dans ton message et qui règle la hauteur des lignes
de ta plage peut aussi s'écrire :
Sub hlig()
Dim deRLig As Long
deRLig = Range("b789").End(xlUp).Row
Range("b3:b" & deRLig).RowHeight = 30.75
End Sub
pour ton souci, l'important est de bien placer le calcul ou recalcul de la
dernière ligne du tableau
--
Avec plaisir
Philippe.R
"Marc" a écrit dans le message de
news:Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates
je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé
un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin
des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont
ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je
voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Bonjour Marc,
Le code que tu publies dans ton message et qui règle la hauteur des lignes
de ta plage peut aussi s'écrire :
Sub hlig()
Dim deRLig As Long
deRLig = Range("b789").End(xlUp).Row
Range("b3:b" & deRLig).RowHeight = 30.75
End Sub
pour ton souci, l'important est de bien placer le calcul ou recalcul de la
dernière ligne du tableau
--
Avec plaisir
Philippe.R
"Marc" a écrit dans le message de
news:Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates
je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé
un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin
des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont
ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je
voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Bonjour Marc,
Le code que tu publies dans ton message et qui règle la hauteur des lignes
de ta plage peut aussi s'écrire :
Sub hlig()
Dim deRLig As Long
deRLig = Range("b789").End(xlUp).Row
Range("b3:b" & deRLig).RowHeight = 30.75
End Sub
pour ton souci, l'important est de bien placer le calcul ou recalcul de la
dernière ligne du tableau
--
Avec plaisir
Philippe.R
"Marc" <Marc@discussions.microsoft.com> a écrit dans le message de
news:5B703BDD-13BD-4057-898A-E6F27067804F@microsoft.com...
Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates
je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé
un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin
des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont
ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je
voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Bonjour Marc,
Le code que tu publies dans ton message et qui règle la hauteur des lignes
de ta plage peut aussi s'écrire :
Sub hlig()
Dim deRLig As Long
deRLig = Range("b789").End(xlUp).Row
Range("b3:b" & deRLig).RowHeight = 30.75
End Sub
pour ton souci, l'important est de bien placer le calcul ou recalcul de la
dernière ligne du tableau
--
Avec plaisir
Philippe.R
"Marc" a écrit dans le message de
news:Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates
je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé
un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin
des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont
ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je
voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
merci Philippe
pour les lignes
je ne comprend pas, de ce que tu veux dire par calcule ou recalculBonjour Marc,
Le code que tu publies dans ton message et qui règle la hauteur des
lignes
de ta plage peut aussi s'écrire :
Sub hlig()
Dim deRLig As Long
deRLig = Range("b789").End(xlUp).Row
Range("b3:b" & deRLig).RowHeight = 30.75
End Sub
pour ton souci, l'important est de bien placer le calcul ou recalcul de
la
dernière ligne du tableau
--
Avec plaisir
Philippe.R
"Marc" a écrit dans le message de
news:Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les
dates
je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai
placé
un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin
des
lignes. du au fait que je fais une boucle pour vérifier toutes mes
lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté
exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont
ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je
voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
merci Philippe
pour les lignes
je ne comprend pas, de ce que tu veux dire par calcule ou recalcul
Bonjour Marc,
Le code que tu publies dans ton message et qui règle la hauteur des
lignes
de ta plage peut aussi s'écrire :
Sub hlig()
Dim deRLig As Long
deRLig = Range("b789").End(xlUp).Row
Range("b3:b" & deRLig).RowHeight = 30.75
End Sub
pour ton souci, l'important est de bien placer le calcul ou recalcul de
la
dernière ligne du tableau
--
Avec plaisir
Philippe.R
"Marc" <Marc@discussions.microsoft.com> a écrit dans le message de
news:5B703BDD-13BD-4057-898A-E6F27067804F@microsoft.com...
Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les
dates
je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai
placé
un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin
des
lignes. du au fait que je fais une boucle pour vérifier toutes mes
lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté
exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont
ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je
voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
merci Philippe
pour les lignes
je ne comprend pas, de ce que tu veux dire par calcule ou recalculBonjour Marc,
Le code que tu publies dans ton message et qui règle la hauteur des
lignes
de ta plage peut aussi s'écrire :
Sub hlig()
Dim deRLig As Long
deRLig = Range("b789").End(xlUp).Row
Range("b3:b" & deRLig).RowHeight = 30.75
End Sub
pour ton souci, l'important est de bien placer le calcul ou recalcul de
la
dernière ligne du tableau
--
Avec plaisir
Philippe.R
"Marc" a écrit dans le message de
news:Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les
dates
je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai
placé
un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin
des
lignes. du au fait que je fais une boucle pour vérifier toutes mes
lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté
exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont
ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je
voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Bonjour,
pour éviter le problème qd on supprime ou insère
boucler de bas en haut
step-1
mais pour y voir plus clair il faudrait que tu donne le code complet
car sur ce seul extrait je comprends pas bien où et comment sont
définies les compteur2 ligne6
et ce que vient faire cet xlsheet ni où finit et ce qui suit dans la
boucle.
D'ailleurs on ne voit pas non plus .insert donc où insère tu la ligne
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
....
lStephBonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Bonjour,
pour éviter le problème qd on supprime ou insère
boucler de bas en haut
step-1
mais pour y voir plus clair il faudrait que tu donne le code complet
car sur ce seul extrait je comprends pas bien où et comment sont
définies les compteur2 ligne6
et ce que vient faire cet xlsheet ni où finit et ce qui suit dans la
boucle.
D'ailleurs on ne voit pas non plus .insert donc où insère tu la ligne
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
....
lSteph
Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Bonjour,
pour éviter le problème qd on supprime ou insère
boucler de bas en haut
step-1
mais pour y voir plus clair il faudrait que tu donne le code complet
car sur ce seul extrait je comprends pas bien où et comment sont
définies les compteur2 ligne6
et ce que vient faire cet xlsheet ni où finit et ce qui suit dans la
boucle.
D'ailleurs on ne voit pas non plus .insert donc où insère tu la ligne
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
....
lStephBonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Il y a aussi ceci :
http://cjoint.com/?jdeW1vBczy
"Marc" a écrit dans le message de news:
Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Il y a aussi ceci :
http://cjoint.com/?jdeW1vBczy
"Marc" <Marc@discussions.microsoft.com> a écrit dans le message de news:
5B703BDD-13BD-4057-898A-E6F27067804F@microsoft.com...
Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc
Il y a aussi ceci :
http://cjoint.com/?jdeW1vBczy
"Marc" a écrit dans le message de news:
Bonjour a tous.....
voilà mon problème, j'ai un fichier excel qui fonctionne selon les dates je
veux qui sépare a tous les semaine (pour ca ca va.... sauf que j'ai placé un
point d'arrêt (MaLigne6 = Range("b3").End(xlDown).Address) pour que mon
fichier ne se rend pas a 655... quelques ligne mais qui arrête a la fin des
lignes. du au fait que je fais une boucle pour vérifier toutes mes lignes
quand il arrive a la fin de le string (maligne6), si il a ajouté exemple 3
lignes et que la fin est a range b25 au début et que 3 lignes ce sont ajouté
il devrait être range b28 mais il arrête pareil a range b25 donc je voudrais
savoir quoi faire pour changé ma string avec la nouvelle adresse
voici un bout de code
Dim xlSheet As Excel.Worksheet
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
For Compteur2 = 3 To MaLigne6 Step 1
Range(Compteur2 & ":" & Compteur2).Select
Selection.RowHeight = 30.75
MaLigne6 = Range("b3").End(xlDown).Address
MaLigne6 = Range(MaLigne6).Row
merci a l'avance
Marc