Aide pour modif code

Bonjour le forum !!

J'ai un code pour effacer certaine colonne ex: de "A3:0,L3:S70".

Mon problème et que j'aimerai pouvoir ajouter des lignes ce qui donnerai ex: "A3:A80,L3:L80".

Vous trouverez plus d'info sur le fichier joint.

En tous les cas je vous remercie d'avance.

Bonjour,

Tu veux créer un bouton dans la feuille Menu qui ajoute une ligne dans le tableau des deux feuilles en même temps ?

A te relire

Bonjour Dan !

Non l'ajout ou la supprésion de ligne doit ce faire manuellement.

c'est un fichier qui serre pour faire des diagnostique d'accessibilite et comporte 27 onglets chacun traitant un thème particulier et suivant le cas on doit rajouter une ou plusieur lignes sur un ou plusieurs onglets, de plus les tableaux ont tous un nombre de ligne different comme dans l'exemple, ce que j'aimerai c'est d'avoir des bornes pour effacer les données non fixe

Bonjour

Si j'ai bien compris (?)

Pour effacer ton tableau quel que soit le nombre de lignes

Sub Efface()
Dim Lgn As String
Range("A3", [A3].End(xlDown).Offset(-1, 0)).ClearContents
Lgn = Range("A3", [A3].End(xlDown).Offset(-1, 0)).Rows.Count
Range("L3", Range("L3").Offset(Lgn - 1, 7)).ClearContents
End Sub

Cordialement

bonjour Amadéus et Dan

je vous remercie pour votre aide, le code d'Amadéus fonctionne trés bien sur l'exemple je vais maintenant modifier mon fichier final

Encore merci à vous deux et bonne journée au forum