Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et au
dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et au
dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et au
dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
A exclure le Range("65532"), car il y à d'autres textes en dessous (t'en
ai sur ?, j'en doute !)
Youky
Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et au
dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
A exclure le Range("65532"), car il y à d'autres textes en dessous (t'en
ai sur ?, j'en doute !)
Youky
Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et au
dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
A exclure le Range("65532"), car il y à d'autres textes en dessous (t'en
ai sur ?, j'en doute !)
Youky
Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et au
dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
MsgBox [A1].End(xlDown).Row + 1A exclure le Range("65532"), car il y à d'autres textes en dessous (t'en
ai sur ?, j'en doute !)
Youky
"DC" a écrit dans le message de news:
43fc9c1a$0$18305$Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et au
dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
MsgBox [A1].End(xlDown).Row + 1
A exclure le Range("65532"), car il y à d'autres textes en dessous (t'en
ai sur ?, j'en doute !)
Youky
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43fc9c1a$0$18305$8fcfb975@news.wanadoo.fr...
Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et au
dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
MsgBox [A1].End(xlDown).Row + 1A exclure le Range("65532"), car il y à d'autres textes en dessous (t'en
ai sur ?, j'en doute !)
Youky
"DC" a écrit dans le message de news:
43fc9c1a$0$18305$Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et au
dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
Il les a toutes eues ces formules-là. Aucune ne lui convient.
"Youky" a écrit dans le message de news:
%23Ai9bv$MsgBox [A1].End(xlDown).Row + 1A exclure le Range("65532"), car il y à d'autres textes en dessous (t'en
ai sur ?, j'en doute !)
Youky
"DC" a écrit dans le message de news:
43fc9c1a$0$18305$Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et au
dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
Il les a toutes eues ces formules-là. Aucune ne lui convient.
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
%23Ai9bv$NGHA.2036@TK2MSFTNGP14.phx.gbl...
MsgBox [A1].End(xlDown).Row + 1
A exclure le Range("65532"), car il y à d'autres textes en dessous (t'en
ai sur ?, j'en doute !)
Youky
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43fc9c1a$0$18305$8fcfb975@news.wanadoo.fr...
Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et au
dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
Il les a toutes eues ces formules-là. Aucune ne lui convient.
"Youky" a écrit dans le message de news:
%23Ai9bv$MsgBox [A1].End(xlDown).Row + 1A exclure le Range("65532"), car il y à d'autres textes en dessous (t'en
ai sur ?, j'en doute !)
Youky
"DC" a écrit dans le message de news:
43fc9c1a$0$18305$Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et au
dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
Bonjour Clément et Youky,
Alors voilà je m'explique !
Je fais des devis du batiment en électricité, c'est à dire qu'une ligne
écrite, comprend 1 libellè + 1 prix unit + 1 quantité.....etc.., et des
lignes comme çà, je peux en avoir entres 50 et 150 dans un seul poste et
des postes, entres 10 et 50 dans un seul devis, avec 4 lignes vides entres
chaque poste, aussi çà explique pourquoi, dans mes demandes je parle
d'autres textes en dessous et au dessus et j'aimerais, pouvoir me déplacer
rapidement vers le bas d'un poste et de lancer une macro, sans être obligé
de tout faire défiler,
J'espère cette fois-ci avoir été clair, car je commence à douter
sérieusement de mes facultées à me faire comprendre,
Cordialement ! Merci !
DC
"Clément Marcotte" a écrit dans le message
de news: e$13Zy$Il les a toutes eues ces formules-là. Aucune ne lui convient.
"Youky" a écrit dans le message de news:
%23Ai9bv$MsgBox [A1].End(xlDown).Row + 1A exclure le Range("65532"), car il y à d'autres textes en dessous
(t'en ai sur ?, j'en doute !)
Youky
"DC" a écrit dans le message de news:
43fc9c1a$0$18305$Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et
au dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
Bonjour Clément et Youky,
Alors voilà je m'explique !
Je fais des devis du batiment en électricité, c'est à dire qu'une ligne
écrite, comprend 1 libellè + 1 prix unit + 1 quantité.....etc.., et des
lignes comme çà, je peux en avoir entres 50 et 150 dans un seul poste et
des postes, entres 10 et 50 dans un seul devis, avec 4 lignes vides entres
chaque poste, aussi çà explique pourquoi, dans mes demandes je parle
d'autres textes en dessous et au dessus et j'aimerais, pouvoir me déplacer
rapidement vers le bas d'un poste et de lancer une macro, sans être obligé
de tout faire défiler,
J'espère cette fois-ci avoir été clair, car je commence à douter
sérieusement de mes facultées à me faire comprendre,
Cordialement ! Merci !
DC
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: e$13Zy$NGHA.964@tk2msftngp13.phx.gbl...
Il les a toutes eues ces formules-là. Aucune ne lui convient.
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
%23Ai9bv$NGHA.2036@TK2MSFTNGP14.phx.gbl...
MsgBox [A1].End(xlDown).Row + 1
A exclure le Range("65532"), car il y à d'autres textes en dessous
(t'en ai sur ?, j'en doute !)
Youky
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43fc9c1a$0$18305$8fcfb975@news.wanadoo.fr...
Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et
au dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
Bonjour Clément et Youky,
Alors voilà je m'explique !
Je fais des devis du batiment en électricité, c'est à dire qu'une ligne
écrite, comprend 1 libellè + 1 prix unit + 1 quantité.....etc.., et des
lignes comme çà, je peux en avoir entres 50 et 150 dans un seul poste et
des postes, entres 10 et 50 dans un seul devis, avec 4 lignes vides entres
chaque poste, aussi çà explique pourquoi, dans mes demandes je parle
d'autres textes en dessous et au dessus et j'aimerais, pouvoir me déplacer
rapidement vers le bas d'un poste et de lancer une macro, sans être obligé
de tout faire défiler,
J'espère cette fois-ci avoir été clair, car je commence à douter
sérieusement de mes facultées à me faire comprendre,
Cordialement ! Merci !
DC
"Clément Marcotte" a écrit dans le message
de news: e$13Zy$Il les a toutes eues ces formules-là. Aucune ne lui convient.
"Youky" a écrit dans le message de news:
%23Ai9bv$MsgBox [A1].End(xlDown).Row + 1A exclure le Range("65532"), car il y à d'autres textes en dessous
(t'en ai sur ?, j'en doute !)
Youky
"DC" a écrit dans le message de news:
43fc9c1a$0$18305$Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première ligne
vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et
au dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
re Salut DC
Tu selectionnes une ligne de ton devis n'importe laquelle
cette macro va chercher les 4 lignes vident en dessous
à partir de là elle va chercher la 1ere ligne vide et la selectionne
Se sera déja un bon debut
Youky
Private Sub CommandButton1_Click()
bas = [A65536].End(xlUp).Row
For k = Selection.Row To bas
If Cells(k, 1) = "" Then
n = n + 1
If n = 4 Then
n = 0
For lig = k + 1 To bas
If Cells(lig, 1) = "" Then
If Cells(lig + 1, 1) = "" Then n = n + 1
If Cells(lig + 2, 1) = "" Then n = n + 1
If Cells(lig + 3, 1) = "" Then n = n + 1
If n = 3 Then Exit For
Cells(lig, 1).Select: Exit Sub
End If
Next
End If
End If
If Cells(k, 1) <> "" Then n = 0
Next
End Sub
"DC" a écrit dans le message de news:
43fd881b$0$6668$Bonjour Clément et Youky,
Alors voilà je m'explique !
Je fais des devis du batiment en électricité, c'est à dire qu'une ligne
écrite, comprend 1 libellè + 1 prix unit + 1 quantité.....etc.., et des
lignes comme çà, je peux en avoir entres 50 et 150 dans un seul poste et
des postes, entres 10 et 50 dans un seul devis, avec 4 lignes vides
entres chaque poste, aussi çà explique pourquoi, dans mes demandes je
parle d'autres textes en dessous et au dessus et j'aimerais, pouvoir me
déplacer rapidement vers le bas d'un poste et de lancer une macro, sans
être obligé de tout faire défiler,
J'espère cette fois-ci avoir été clair, car je commence à douter
sérieusement de mes facultées à me faire comprendre,
Cordialement ! Merci !
DC
"Clément Marcotte" a écrit dans le
message de news: e$13Zy$Il les a toutes eues ces formules-là. Aucune ne lui convient.
"Youky" a écrit dans le message de news:
%23Ai9bv$MsgBox [A1].End(xlDown).Row + 1A exclure le Range("65532"), car il y à d'autres textes en dessous
(t'en ai sur ?, j'en doute !)
Youky
"DC" a écrit dans le message de news:
43fc9c1a$0$18305$Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première
ligne vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et
au dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
re Salut DC
Tu selectionnes une ligne de ton devis n'importe laquelle
cette macro va chercher les 4 lignes vident en dessous
à partir de là elle va chercher la 1ere ligne vide et la selectionne
Se sera déja un bon debut
Youky
Private Sub CommandButton1_Click()
bas = [A65536].End(xlUp).Row
For k = Selection.Row To bas
If Cells(k, 1) = "" Then
n = n + 1
If n = 4 Then
n = 0
For lig = k + 1 To bas
If Cells(lig, 1) = "" Then
If Cells(lig + 1, 1) = "" Then n = n + 1
If Cells(lig + 2, 1) = "" Then n = n + 1
If Cells(lig + 3, 1) = "" Then n = n + 1
If n = 3 Then Exit For
Cells(lig, 1).Select: Exit Sub
End If
Next
End If
End If
If Cells(k, 1) <> "" Then n = 0
Next
End Sub
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43fd881b$0$6668$8fcfb975@news.wanadoo.fr...
Bonjour Clément et Youky,
Alors voilà je m'explique !
Je fais des devis du batiment en électricité, c'est à dire qu'une ligne
écrite, comprend 1 libellè + 1 prix unit + 1 quantité.....etc.., et des
lignes comme çà, je peux en avoir entres 50 et 150 dans un seul poste et
des postes, entres 10 et 50 dans un seul devis, avec 4 lignes vides
entres chaque poste, aussi çà explique pourquoi, dans mes demandes je
parle d'autres textes en dessous et au dessus et j'aimerais, pouvoir me
déplacer rapidement vers le bas d'un poste et de lancer une macro, sans
être obligé de tout faire défiler,
J'espère cette fois-ci avoir été clair, car je commence à douter
sérieusement de mes facultées à me faire comprendre,
Cordialement ! Merci !
DC
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le
message de news: e$13Zy$NGHA.964@tk2msftngp13.phx.gbl...
Il les a toutes eues ces formules-là. Aucune ne lui convient.
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
%23Ai9bv$NGHA.2036@TK2MSFTNGP14.phx.gbl...
MsgBox [A1].End(xlDown).Row + 1
A exclure le Range("65532"), car il y à d'autres textes en dessous
(t'en ai sur ?, j'en doute !)
Youky
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43fc9c1a$0$18305$8fcfb975@news.wanadoo.fr...
Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première
ligne vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et
au dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC
re Salut DC
Tu selectionnes une ligne de ton devis n'importe laquelle
cette macro va chercher les 4 lignes vident en dessous
à partir de là elle va chercher la 1ere ligne vide et la selectionne
Se sera déja un bon debut
Youky
Private Sub CommandButton1_Click()
bas = [A65536].End(xlUp).Row
For k = Selection.Row To bas
If Cells(k, 1) = "" Then
n = n + 1
If n = 4 Then
n = 0
For lig = k + 1 To bas
If Cells(lig, 1) = "" Then
If Cells(lig + 1, 1) = "" Then n = n + 1
If Cells(lig + 2, 1) = "" Then n = n + 1
If Cells(lig + 3, 1) = "" Then n = n + 1
If n = 3 Then Exit For
Cells(lig, 1).Select: Exit Sub
End If
Next
End If
End If
If Cells(k, 1) <> "" Then n = 0
Next
End Sub
"DC" a écrit dans le message de news:
43fd881b$0$6668$Bonjour Clément et Youky,
Alors voilà je m'explique !
Je fais des devis du batiment en électricité, c'est à dire qu'une ligne
écrite, comprend 1 libellè + 1 prix unit + 1 quantité.....etc.., et des
lignes comme çà, je peux en avoir entres 50 et 150 dans un seul poste et
des postes, entres 10 et 50 dans un seul devis, avec 4 lignes vides
entres chaque poste, aussi çà explique pourquoi, dans mes demandes je
parle d'autres textes en dessous et au dessus et j'aimerais, pouvoir me
déplacer rapidement vers le bas d'un poste et de lancer une macro, sans
être obligé de tout faire défiler,
J'espère cette fois-ci avoir été clair, car je commence à douter
sérieusement de mes facultées à me faire comprendre,
Cordialement ! Merci !
DC
"Clément Marcotte" a écrit dans le
message de news: e$13Zy$Il les a toutes eues ces formules-là. Aucune ne lui convient.
"Youky" a écrit dans le message de news:
%23Ai9bv$MsgBox [A1].End(xlDown).Row + 1A exclure le Range("65532"), car il y à d'autres textes en dessous
(t'en ai sur ?, j'en doute !)
Youky
"DC" a écrit dans le message de news:
43fc9c1a$0$18305$Bonsoir à tous,
Dans un texte de plusieurs lignes, comment aller vers la première
ligne vide du bas !
A exclure le Range("65532"), car il y à d'autres textes en dessous et
au dessus,
Cordialement, j'ai besoin d'aide! Merci d'avance !
DC