Discussion :

[Florent6744]

Bonjour,

Je cherche à créer une macro pour automatiser certaines cellules d’un tableau
Dans un UserForm j’ai mis des checkbox.
Il doit y avoir deux fonctionnement différents :
L’un doit mettre un X dans la cellule 10 de la ligne active.
Les autres doivent remplir des cases qui ne serviront pas suivant la typologie du dossier.

Mes questions sont les suivantes :
Pour le premier cas j’ai créer cette macro

Code :

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

1
2
3
If CheckBox1.Value = True Then
        Range((ActiveCells.Row), 10) = "X"
    End If

Mais elle ne fonctionne pas et je ne comprends pas l’erreur.

Pour les autres cas, je sais comment choisir le remplissage. Ce que je ne sais pas c’est comment sélectionner les colonnes (exemple bidon) N, O, X et AA de la ligne active.

Merci pour votre aide

[deedolith]

Salut,

Passe plutôt par la propriété EntireRow:

Code :

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

ActiveCell.EntireRow.Cells(10).Value = "X"

[Philippe Tulliez]

Bonjour,
Cela fonctionnera mieux avec Cells plutôt que Range

Code :

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

Cells((ActiveCell.Row), 10) = "X"

[Florent6744]

Bonjour,

Merci pour vos reponses, ça fonctionne super.

Du coup je m'en suis inspiré pour la seconde partie de ma macro.... mais pas un franc succès.

J'ai fait ce bout de macro pour sélectionner plusieurs cellules de la ligne active et y mettre un remplissage barré.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
If CheckBox2.Value = True Then
        Cells((ActiveCell.Row), 15, 17, 19).Select
        Cells((ActiveCell.Row), 19).Activate
        With Selection.Interior
            .Pattern = xlLightUp
            .PatternColorIndex = xlAutomatic
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    End If

a chaque fois que je test, j'ai ce message:


Quel est le probleme?

[Valtrase]

Bonjour à tous,

Ce que je ne sais pas c’est comment sélectionner les colonnes (exemple bidon) N, O, X et AA de la ligne active.

Voici quelques méthodes qui correspondent à la demande :
En utilisant Union et Cells:

Code :

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

1
2
    Dim R As Long: R = ActiveCell.Row
    Union(Cells(R, 14), Cells(R, 15), Cells(R, 24), Cells(R, 27)).Select

En utilisant Union et Range :

Code :

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

    Union(Range("N" & R), Range("O" & R), Range("X" & R), Range("AA" & R)).Select

Une autre méthode avec Resize et Union:

Code :

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

    Union(Range("N" & R).Resize(, 2), Range("X" & R), Range("AA" & R)).Select