A voir également:
- Tirage de colonne sans souris
- Déplacer colonne excel - Guide
- Comment activer le pavé tactile sans souris - Guide
- Trier colonne excel - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
3 réponses
Bonjour,
Qu'entends tu par "tirer une colonne"?
Étendre une formule sur la totalité d'une colonne?
Étendre une formule sur une partie d'une colonne? (si oui, combien de lignes etc...)
Autre chose?
Qu'entends tu par "tirer une colonne"?
Étendre une formule sur la totalité d'une colonne?
Étendre une formule sur une partie d'une colonne? (si oui, combien de lignes etc...)
Autre chose?
Voici un exemple de ce qu'il est possible de faire en macro :
Pour mettre en place cette procédure :
1- dans le classeur concerné, sous n'importe qu'elle feuille, taper ALT+F11,
2- Dans la fenêtre qui s'ouvre (Visual Basic Editor), Insertion/Module
3- dans la fenêtre au centre de l'écran, copier-coller ce code :
Pour utiliser cette procédure :
1- Sélectionner la cellule concernée par le "tirage"
2- Taper ALT+F8
3- Choisir Simon260 et cliquer sur Exécuter
4- la macro demande jusqu'à qu'elle ligne étendre la formule, saisissez un nombre
5- OK
6- Voilà
Cordialement,
Franck
Pour mettre en place cette procédure :
1- dans le classeur concerné, sous n'importe qu'elle feuille, taper ALT+F11,
2- Dans la fenêtre qui s'ouvre (Visual Basic Editor), Insertion/Module
3- dans la fenêtre au centre de l'écran, copier-coller ce code :
Sub Simon260()4- refermer la fenêtre Visual Basic Editor
Dim rngDest As Range, Adresse As String, Col As String, Cpt As Byte
Do
Adresse = InputBox("Jusqu'à qu'elle ligne étendre la formule?", "N° LIGNE")
Cpt = Cpt + 1
If Cpt > 3 Then Exit Sub
Loop While Teste(Adresse) = False
Col = Split(ActiveCell.Address, "$")(1)
Adresse = Col & Adresse
Set rngDest = Range(Adresse)
Selection.AutoFill Destination:=Range(ActiveCell, rngDest)
End Sub
Function Teste(Str As String) As Boolean
Teste = True
If Not IsNumeric(Str) Then Teste = False: Exit Function
If Str = "" Then Teste = False: Exit Function
If Str = 0 Then Teste = False: Exit Function
If CLng(Str) < 0 Then Teste = False: Exit Function
If InStr(Str, Application.International(xlDecimalSeparator)) <> 0 Then Teste = False: Exit Function
If CLng(Str) > Rows.Count Then Teste = False: Exit Function
End Function
Pour utiliser cette procédure :
1- Sélectionner la cellule concernée par le "tirage"
2- Taper ALT+F8
3- Choisir Simon260 et cliquer sur Exécuter
4- la macro demande jusqu'à qu'elle ligne étendre la formule, saisissez un nombre
5- OK
6- Voilà
Cordialement,
Franck