Insérer des colones dans une feuille avec Macro

[marcm1049]

Bonjour,

J'ai récupérer une feuille sur le Forum, pour un suivi d'activités. Le pb c'est que je ne sais pas comment insérer des lignes ou colones sans "casser" la macro.

Pb aussi si je modifie le texte des têtes de colonnes....

si j'avais la même feuille avec 10 colonnes sup avant la colonne de validation, , je pourrais masquer les colonnes dont je ne me sert pas.

Merci de votre aide.

 

[gilbert_RGI]

Re : Insérer des colones dans une feuille avec Macro

Bonjour

Essayez ceci pour ajouter des colonnes

Private Sub Worksheet_Change(ByVal Target As Range)
If flag Then Exit Sub
flag = True
col = Range("7:7").End(xlToRight).Column
If Target.Column = col And Target.Row > 7 And UCase(Target.Value) = "X" Then
nomfeuil = Range("A" & Target.Row)
Range( Cells(Target.Row ,1),Cells (Target.Row,col)).Copy Destination:=Sheets(nomfeuil).Range("A65536").End(xlUp).Offset(1, 0)
Sheets(nomfeuil).Range("A65536").End(xlUp).Offset(0, col) = Date
Rows(Target.Row).Delete
End If
flag = False
End Sub

Cdlt

RGI

 

[Guest]

Re : Insérer des colones dans une feuille avec Macro

Bonjour Marc,

Dans la macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If flag Then Exit Sub
flag = True
If Target.Column = [COLOR=red][B]7[/B][/COLOR] And Target.Row >= [COLOR=red][B]8 [/B][/COLOR]And UCase(Target.Value) = "X" Then
  nomfeuil = Range("A" & Target.Row)
  [COLOR=olive][B]Range("A" & Target.Row & ":G" & Target.Row).[/B][/COLOR]Copy Destination:=Sheets(nomfeuil).Range("A65536").End(xlUp).Offset(1, 0)
  Sheets(nomfeuil).Range("A65536").End(xlUp).Offset(0, 7) = Date
  Rows(Target.Row).Delete
End If
flag = False
End Sub

Le 7 peut-être changé par le numéro de colonne que tu souhaite. si tu rajoute 10 colonne avant, mets 17
Le 8 quant à lui représent le numéro de la première ligne de données du tableau. Il peut-être changé en cas de besoin.

En ce qui concerne Range("A" & Target.Row & ":G" & Target.Row) , cela définit la plage de cellule à copier. Le "A" et le "G" peuvent être changé pour les lettre de colonnes de départ et de fin de la plage de cellules. Target.row représent la le n° de ligne. Donc si la ligne à valider est la 9ème ligne de la feuille, vba traduit Range("A" & Target.Row & ":G" & Target.Row) par Range("A9:G9") soit cellules de "A9" à "G9".

Je te laisse faire les changements.

A bientôt

EDITION: Salut Gilbert

 

[marcm1049]

Re : Insérer des colones dans une feuille avec Macro

Merci, mais je n'y arrive pas.
j'ai bien essayé, mais ne dois avoir tout compris !
ci joint, mon essai....

 

[gilbert_RGI]

Re : Insérer des colones dans une feuille avec Macro

Problème de dernière colonne

voir la PJ

Cdlt

RGI

 

[marcm1049]

Re : Insérer des colones dans une feuille avec Macro

Super, merci beaucoup.