Petite modif sur macro....

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin de modifier une macro...
voir fichier joint...

Merci pour votre aide si précieuse.
Bien amicalement,

Christian

 

[pierrejean]

Bonjour Christian

En espérant avoir compris

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$10" And Target = "" Then Columns("F").Delete
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
If Target.Row < 11 Or Target.Column < 6 Or Target.Column > 31 Or Target.Column Mod 2 = 0 Then Exit Sub
If Cells(9, Target.Column + 1).Value <> "ò" Then Exit Sub
Target.Offset(, 1).FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1])"
End Sub

 

[Christian0258]

Re, le forum, pierrejean

Merci, pierrejean , pour ton aide.
En fait je souhaite supprimer la colonne F un fois pour toute, actuellement si je supprime cette colonne,
la macro ne fonctionne plus...
Si tu tapes un chiffre dans une des colonnes ( titre "associé avec "), la formule, pour copier ce chiffre, ne se place pas dans sa colonne de droite titre "ò".
A te lire.
Merci
Christian

 

[pierrejean]

Re

Teste cette ligne

If Target.Row < 10 Or Target.Column < 5 Or Target.Column > 30 Or Target.Column Mod 2 = 1 Then Exit Sub

 

[Christian0258]

Re, le forum, pierrejean

Merci beaucoup, pierrejean, c'est impeccable.

Bien à toi.
Christian