Macro pour modifier des cellules, mais qui ne fonctionne pas!!!

  • Initiateur de la discussion Initiateur de la discussion T77XDD
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

T77XDD

XLDnaute Occasionnel
Bonjour,
je cherche à automatisé des modifications d'un ensemble de cellules
Code:
Sub Macro1()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+k
'
    Range("C8").Select
    Application.CutCopyMode = False
    Selection.Cut
    Range("C7").Select
    ActiveSheet.Paste
    Range("B8:C8").Select
    Selection.Delete Shift:=xlUp
    Range("B7:C7").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 56
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 56
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 56
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 56
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
Ce que je cherche à faire est dans le fichier joint: à répéter 200 fois pour 200 groupes de celulles sur la même page.
Merci
 

Pièces jointes

Dernière édition:
Re : Macro pour modifier des cellules, mais qui ne fonctionne pas!!!

Bonsoir.

Commencez par le bas.
Et si vous souhaitez plus d'aide, donnez plus d'infos :
Les groupes à modifier sont-ils tous identiques, sont-ils toujours espacés du même nombre de lignes, et combien...
Un seul exemple, c'est trop court pour comprendre la structure de votre fichier.
 
Re : Macro pour modifier des cellules, mais qui ne fonctionne pas!!!

Bonjour et merci pour cette réponse tant attendue.

Pour ce qui est du nombre de cellules que je dois modifier en même temps elles sont au nombre de 10 (5x2) et réparties comme cela b2;d2;.....ad2 pour les lignes et b2; b7; b12;.....;b52 pour les colonnes par 2 fois parcequ'il y a 2 feuilless à modifier.

J'ai modifié l'exemple avec les détails, comme vous pouvez voir + se sera automatisé mieux ce sera

Merci.
 

Pièces jointes

Re : Macro pour modifier des cellules, mais qui ne fonctionne pas!!!

Bonjour, j'ai avancé mais je ne sais pas si j'ai une bonne piste.
Je cherche avec la fonction remplacer à modifier
"=RECHERCHEV(Locataires!C57;RefLocs;3;FAUX)" en
"=CONCATENER(RECHERCHEV(Locataires!C57;RefLocs;3;FAUX);" Son..: ";RECHERCHEV(Locataires!C57;RefLocs;5;FAUX))"
avec les valeurs C2 à C322.
J'ai modifié "RECHERCHEV(Locataires!C57;RefLocs;3;FAUX)" en "RECHERCHEV(Locataires!C*;RefLocs;3;FAUX)" ça marche presque puisque je me retrouve avec C57 dans toutes les cellules.
Y'a t'il un moyen de remplacer Cx par Cx dans la nouvelle formule sans avoir à recommencer 320 fois la même opération en remplaçant le * par autre chose.
Merci.
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
246
  • Question Question
XL pour MAC Recherche date
Réponses
5
Affichages
2 K
Retour