Aide dans une macro
Bonjour à tous et à toutes,
j'ai besoin d'un petit coup de main sur une macro (je débute...)
Voilà, je voudrais par une macro, suivant une sélection que une cellule sur deux (que se soit en ligne et en colonne soit avec une bordure bleue
voici ce que j'ai pour l'instant:
Sub ColorUnSurDeux()
Set ASelectionner = Application.InputBox _
(Prompt:="selectionner les colonnes et lignes ", _
Title:=" Selectionner les colonnes et lignes", Type:=8)
ASelectionner.Select 'Selection des colonnes concernées
For Each col In Selection.Rows
If col.Row Mod 2 = 1 Then
col.Borders.ColorIndex = 5
End If
Next col
End Sub
Ceci me permet d'avoir effectivement une ligne sur deux mais pas encore une colonne sur deux.
J'espère avoir été clair. En bref je voudrais avoir une cellule sur deux (que se soit horizontalement et verticalement) avec une bordure bleue
Merci
Catballou
Bonjour,
Avant de plancher sur ta macro, as-tu pensé à faire une mise en forme conditionelle qui te donne le même résultat.
Pour essayer :
- Sélectionne le tableau
- FORMAT / MISEN EN FORME CONDITIONNELLE
- Choisis "La formule est"
- A droite mets cette formule : =MOD(LIGNE();2)
- Clique sur l'onglet MOTIFS pour choisir une couleur
Pour les colonnes, remplace LIGNE par COLONNE
Amicalement
Dan
Merci pour le coup de main mais le problème reste le même: en effet il y a bien une ligne sur 2 mais pas une colonne sur 2...
Re,
C'est damier que tu veux faire ?
Dan
re, oui mais avec les cellules encadrées...
Re,
sinon essaye : =MOD(LIGNE();2)=MOD(COLONNE();2)+1
Dan
Merci à toi, c'est super sympa
mais comment faire pour choisir la 1ère colonne et ensuite la 3ème, etc...
Ici il met en application sur la 2ème, 4ème,etc...
Catballou
re,
A la pace de +1 tu mets -1
Dan