[Excel2013] Etendre une ligne sous condition.
superneo13200
Messages postés
27
Statut
Membre
-
Frenchie83 Messages postés 2254 Statut Membre -
Frenchie83 Messages postés 2254 Statut Membre -
Bonjour à tous,
Je viens vous solliciter aujourd'hui parce que j'ai besoin de votre aide.
En ce moment, je travaille sur Excel 2013 et j'aimerais faire une manipulation sur ma feuille de calcul mais je ne sais pas si cela est possible ou non.
En fait, j'ai créé un tableau qui doit être rempli au fur et à mesure. J'ai mis en forme la première ligne de mon tableau avec des validations de données. Évidement, je n'ai pas envie de faire ça sur toutes les lignes suivantes... Je sais que je peux "étendre" la mise en forme de cette ligne aux lignes suivantes, comme on peut le faire avec une formule, mais je ne veux pas non plus à avoir à le faire à chaque fois que mon tableau devient plein. J'aimerais savoir s'il existe une commande qui me permettrais d'étendre la mise en forme de la ligne précédente QUE quand je commence à écrire quelque chose dans la ligne vierge ?
Merci d'avance pour votre aide.
Je viens vous solliciter aujourd'hui parce que j'ai besoin de votre aide.
En ce moment, je travaille sur Excel 2013 et j'aimerais faire une manipulation sur ma feuille de calcul mais je ne sais pas si cela est possible ou non.
En fait, j'ai créé un tableau qui doit être rempli au fur et à mesure. J'ai mis en forme la première ligne de mon tableau avec des validations de données. Évidement, je n'ai pas envie de faire ça sur toutes les lignes suivantes... Je sais que je peux "étendre" la mise en forme de cette ligne aux lignes suivantes, comme on peut le faire avec une formule, mais je ne veux pas non plus à avoir à le faire à chaque fois que mon tableau devient plein. J'aimerais savoir s'il existe une commande qui me permettrais d'étendre la mise en forme de la ligne précédente QUE quand je commence à écrire quelque chose dans la ligne vierge ?
Merci d'avance pour votre aide.
A voir également:
- [Excel2013] Etendre une ligne sous condition.
- Partager photos en ligne - Guide
- Etendre ecran pc - Guide
- Excel cellule couleur si condition texte - Guide
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
1 réponse
Bonjour
Recopiez ceci dans le module de la feuille
A adapter à votre fichier.
Cdlt
Recopiez ceci dans le module de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
DerCol = [Iv1].End(xlToLeft).Column
If Target.Column >= DerCol Or Target.Count > 1 Or Target.Row <= 2 Then Exit Sub
For i = 1 To DerCol
If Cells(Target.Row, i) = Cells(Target.Row, Target.Column) Then GoTo Suivant
If Cells(Target.Row, i) <> "" Then Exit Sub
Suivant:
Next i
Cells(Target.Row, Target.Column).Activate
Range(Cells(ActiveCell.Row - 1, 1), Cells(ActiveCell.Row - 1, DerCol)).Copy
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, DerCol)).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, DerCol)).PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
A adapter à votre fichier.
Cdlt
