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

[T77XDD]

Bonjour,
je cherche à automatisé des modifications d'un ensemble de cellules

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

 

[Victor21]

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.

 

[T77XDD]

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.

 

[T77XDD]

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.

 

[T77XDD]

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

Up siouplait

 

[T77XDD]

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

En fait c'est fait. Résolu donc.