Microsoft 365 Offset.resize

[eric72]

Bonjour à tous,
Me revoilou avec un nouveau petit probleme, en effet j'aimerai (fichier ci-joint), lorsque une cellule de la colonne "C" est <>"", effacer les valeurs de colonne "E" à colonne "AO", puis fusionner de colonne "E" à "I", et cela pour chaque ligne, à l'origine j'ai 130 lignes
J'ai bien essayé avec un Offset.resize mais sans résultat.
Auriez-vous une petite idée?
Merci beaucoup pour votre aide et bonne journée.
Eric

 

[patricktoulon]

re
si tu n'explique pas ce qu'est l'adressage relatif un non averti ne comprendra pas ceci

Sub test()
    Set x = Range("B8:I15")
    MsgBox x.Range("C1").Address
End Sub

 

[mapomme]

si tu n'explique pas ce qu'est l'adressage relatif un non averti ne comprendra pas ceci

Effectivement, mais comme précisé dans ma signature :

Mes formules et mes codes ne sont généralement pas commentés sauf si on me le demande gentiment...

Il y a même plus illisible (qui renvoie D9) :

Sub Test()
    MsgBox Range("B8").Range("C2").Address
End Sub

 

[patricktoulon]

re
j'imagine les non avertis derriere en train de nous lire et marcher sur la tête