incrémenter bordures et listes de validation automatique

[lessa]

Bonjour le forum,

Une nouvelle fois dans la galère, je fais appel à vous car j'aimerais savoir comment je pourrais faire pour qu'à la saisie d'un nom dans la colone de mon tableau 1 la mise en forme des bordures et les listes de validations de la ligne précédentes s'ajoutent automatiquement à la ligne correspondante des 2 tableaux (voir fichier ci-joint)

il faut savoir qu'en feuille 3, je compte créer un tableau récapitulatif avec NB.SI, j'aimerais donc savoir si je pourrais réutiliser la fonction pour ce tableau

Merci d'avance

 

[lessa]

Re : incrémenter bordures et listes de validation automatique

Ah si j'oublis de joindre le fichier j'crois que vous allez pas pouvoir m'aider

 

[kjin]

Re : incrémenter bordures et listes de validation automatique

Bonjour,
Dans le module de la feuille "Tableau 1"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 2 And Target.Row > 3 Then
Ligne = Target.Row
Range("C" & Ligne - 1 & ":GG" & Ligne - 1).AutoFill _
    Destination:=Range("C" & Ligne - 1 & ":GG" & Ligne), Type:=xlFillDefault
    Target.Offset(0, -1).Value = Target.Offset(-1, -1).Value + 1
    With Sheets("Tableau 2")
        .Range("C" & Ligne - 1 & ":AG" & Ligne - 1).AutoFill _
        Destination:=.Range("C" & Ligne - 1 & ":AG" & Ligne), Type:=xlFillDefault
        .Range("A" & Ligne) = Target.Offset(0, -1).Value
        .Range("B" & Ligne) = Target.Value
    End With
End If

End Sub

Il y a une note d'explication dans le fichier joint
A+
kjin

 

[lessa]

Re : incrémenter bordures et listes de validation automatique

désolé pour la réponse tardive, encore merci pour tes aides

Je viens de regarder la tableau, c'est super c'est exactement ce que j'avais besoin, je te ferais signe quand j'aurais finit ce projet