Sélection multiple sur ligne active

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:

---

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

Salut,

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

Code:

---

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

---

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

Code:

---

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

---

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:

---

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:
Pièce jointe 654297

Quel est le probleme?

Bonjour à tous,

Citation:

---

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:

---

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:

---

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

---

Une autre méthode avec Resize et Union:

Code:

---

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

---