Microsoft 365 Offset.resize

eric72 · 1 Décembre 2023

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

Phil69970 · 1 Décembre 2023

Bonjour @eric72
Edit Bonjour Patrick

Je te propose ce fichier de ce que j'ai compris ....

Edit Fichier modifié pour déclarer les variables à 13h34

Merci de ton retour

patricktoulon · 1 Décembre 2023

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

VB:

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

mapomme · 1 Décembre 2023

patricktoulon à dit:
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) :

VB:

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

patricktoulon · 1 Décembre 2023

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

Microsoft 365 Offset.resize

eric72

XLDnaute Accro

Pièces jointes

Phil69970

patricktoulon

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires