J'ai disons, 10 à 15 lignes d'écritures + 4 à 5 lignes vides,
Je vais appeller ceci un bloc, ( espace bloc = lignes écrites + lignes
vides ),
Dans une feuille de calcul j'ai 20 blocs, et dans le 15ème bloc, le curseur
se trouve n'importe où, dans l'espace bloc du 15ème bloc,
Aussi j'aimerais disposer d'une macro, qui après éxécution, me metterait le
curseur en colonne A et la première cellule vide du 15ème bloc,
Bien sur la même chose doit être possible avec n'importe quel bloc, ex : 8
ème bloc = première cellule vide en colonne A du 8ème
bloc,................Merci d'avance!
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
Daniel
Bonjour. Le curseur bouge avec la souris. Je ne vois pas comment le fixer sur une cellule particulière. Par contre, il est possible de sélectionner cette cellule. Cordialement. Daniel "DC" a écrit dans le message de news: 43f990f5$0$18315$
Bonjour à tous,
J'ai disons, 10 à 15 lignes d'écritures + 4 à 5 lignes vides, Je vais appeller ceci un bloc, ( espace bloc = lignes écrites + lignes vides ),
Dans une feuille de calcul j'ai 20 blocs, et dans le 15ème bloc, le curseur se trouve n'importe où, dans l'espace bloc du 15ème bloc, Aussi j'aimerais disposer d'une macro, qui après éxécution, me metterait le curseur en colonne A et la première cellule vide du 15ème bloc, Bien sur la même chose doit être possible avec n'importe quel bloc, ex : 8 ème bloc = première cellule vide en colonne A du 8ème bloc,................Merci d'avance!
Salutations!................DC
Bonjour.
Le curseur bouge avec la souris. Je ne vois pas comment le fixer sur une
cellule particulière. Par contre, il est possible de sélectionner cette
cellule.
Cordialement.
Daniel
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43f990f5$0$18315$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
J'ai disons, 10 à 15 lignes d'écritures + 4 à 5 lignes vides,
Je vais appeller ceci un bloc, ( espace bloc = lignes écrites + lignes
vides ),
Dans une feuille de calcul j'ai 20 blocs, et dans le 15ème bloc, le
curseur se trouve n'importe où, dans l'espace bloc du 15ème bloc,
Aussi j'aimerais disposer d'une macro, qui après éxécution, me metterait
le curseur en colonne A et la première cellule vide du 15ème bloc,
Bien sur la même chose doit être possible avec n'importe quel bloc, ex : 8
ème bloc = première cellule vide en colonne A du 8ème
bloc,................Merci d'avance!
Bonjour. Le curseur bouge avec la souris. Je ne vois pas comment le fixer sur une cellule particulière. Par contre, il est possible de sélectionner cette cellule. Cordialement. Daniel "DC" a écrit dans le message de news: 43f990f5$0$18315$
Bonjour à tous,
J'ai disons, 10 à 15 lignes d'écritures + 4 à 5 lignes vides, Je vais appeller ceci un bloc, ( espace bloc = lignes écrites + lignes vides ),
Dans une feuille de calcul j'ai 20 blocs, et dans le 15ème bloc, le curseur se trouve n'importe où, dans l'espace bloc du 15ème bloc, Aussi j'aimerais disposer d'une macro, qui après éxécution, me metterait le curseur en colonne A et la première cellule vide du 15ème bloc, Bien sur la même chose doit être possible avec n'importe quel bloc, ex : 8 ème bloc = première cellule vide en colonne A du 8ème bloc,................Merci d'avance!
Sub essai() If IsEmpty(Cells(ActiveCell.Row, 1).Offset(1, 0)) Then ' dernière ligne du bloc plein? Cells(ActiveCell.Row + 1, 1).Select Else Cells(ActiveCell.Row, 1).End(xlDown).Offset(1, 0).Select End If End Sub
Sub essai()
If IsEmpty(Cells(ActiveCell.Row, 1).Offset(1, 0)) Then ' dernière
ligne du bloc plein?
Cells(ActiveCell.Row + 1, 1).Select
Else
Cells(ActiveCell.Row, 1).End(xlDown).Offset(1, 0).Select
End If
End Sub
Sub essai() If IsEmpty(Cells(ActiveCell.Row, 1).Offset(1, 0)) Then ' dernière ligne du bloc plein? Cells(ActiveCell.Row + 1, 1).Select Else Cells(ActiveCell.Row, 1).End(xlDown).Offset(1, 0).Select End If End Sub
Cordialement JB
DC
Bonsoir,
Pourquoi Snober le non initié ( Voir : Principe d'utilisation des Newsgroups ), çà fait mal ! Cordialement, DC
Sub essai() If IsEmpty(Cells(ActiveCell.Row, 1).Offset(1, 0)) Then ' dernière ligne du bloc plein? Cells(ActiveCell.Row + 1, 1).Select Else Cells(ActiveCell.Row, 1).End(xlDown).Offset(1, 0).Select End If End Sub
Cordialement JB
Bonsoir,
Pourquoi Snober le non initié ( Voir : Principe d'utilisation des
Newsgroups ), çà fait mal !
Cordialement,
DC
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1140432959.676762.158540@g43g2000cwa.googlegroups.com...
Bonjour
Sub essai()
If IsEmpty(Cells(ActiveCell.Row, 1).Offset(1, 0)) Then ' dernière
ligne du bloc plein?
Cells(ActiveCell.Row + 1, 1).Select
Else
Cells(ActiveCell.Row, 1).End(xlDown).Offset(1, 0).Select
End If
End Sub
Sub essai() If IsEmpty(Cells(ActiveCell.Row, 1).Offset(1, 0)) Then ' dernière ligne du bloc plein? Cells(ActiveCell.Row + 1, 1).Select Else Cells(ActiveCell.Row, 1).End(xlDown).Offset(1, 0).Select End If End Sub
