Discussion :

[ChNoirhomme]

Je voudrai sélectionner plusieurs cellule en même temps
Bonjour,
Voici un code que j'ai fait pour entourer des données suivant leurs conditions, je ne parvient pas trouver le bon codage pour sélectionner plusieurs cellules a la fois ( les cellules B à J)
En vous remerciant d'avance
Bien à vous
Christian
Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Entourer ()
Dim B1 As Integer
 For B1 = Cells.SpecialCells(xlCellTypeLastCell).Row To 6 Step -1
            If Range("N" & B1).Value <> "" Then
                            Range("B" & B1).Select
               With Selection.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlMedium
               End With
               With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlMedium
                End With

[Pierre Fauconnier]

Salut.

Pourquoi ne pas utiliser la mise en forme conditionnelle?

[ChNoirhomme]

Bonsoir,

Je suis un peux perdu? je suis novice en VBA et je vois pas ou vous allez.
Vous pouvez probablement m'éclairer
Merci

Christian

[Pierre Fauconnier]

Excel propose des outils "natifs" sans VBA pour mettre des cellules en forme selon certaines conditions. L'intérêt est que par la suite, le changement de la valeur de la cellule modifie conditionnellement son format, sans qu'il soit besoin de lancer une macro.

Tu peux utiliser des conditions "toutes faites" paramétrables ou définir tes propres formules conditionnelles.

En 2007, tu peux aller dans l'onglet Accueil, groupe Style puis Mise en forme conditionnelle.

Si tu devais définir la plage subissant la MFC (mise en forme conditionnelle) par macro, le principe serait le même...

Y vois-tu plus clair?

[ChNoirhomme]

Merci pour votre réponse,
Je part d'un fichier mère pour construire un fichier final. il me faut une macro je n'ai pas le choix.
comment remplacer la cellule B avec l'incrémentation B1 - Range("B" & B1).Select- Par les cellules (B:J) l'incrémentation B1 par exemple : Range ("B:J")& B1. Select => bien sur cela ne marche pas .
Bien à vous

Bonsoir,

Christian

[Pierre Fauconnier]

Désolé, je n'ai pas compris ce que tu souhaitais réaliser

Quoi qu'il en soit, tu dois passer comme argument à RANGE(...) une adresse valide.
Ta ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("N" & B1).Value <> "" Then

pourra fonctionner SI B1 contient une valeur comprise entre 1 et 1048576 (classeurs 2007), puisque tu peux utiliser de RANGE("N1") jusque RANGE("N1048576").

Tu dois donc t'arranger pour recréer l'adresse valide à l'intérieur des parenthèses.

Maintenant, si tu veux boucler sur les lignes de B, tu peux utiliser des offset. Mais pour aller plus loin, il faut d'abord que l'on comprenne ce que tu souhaites faire.

Pour ce qui est de devoir utiliser VBA, pas de soucis, mais tu peux, là aussi, utiliser une MFC (c'est-à-dire poser la MFC) en VBA.

A toi de nous éclairer sur ton objectif