Discussion :

[Richard67]

Bonjour a tous.

J'ai un petit soucis et j'espère que vous pourrais m'aider.
j'ai fait une très longue recherche (sur le forum) mais je n'ai pas tout a fait trouver la solution a mon problème.

Voila, je suis en train de créer un tableau (style planning) ou chaque jour je marque le travail effectué. Afin de faire des statistiques, je voudrai formater le remplissage des cellules. Le tableau étant protéger en écriture, je voudrais créer une macro pour chaque tache qui exécuterai ceci:
- efface la cellule sélectionnée
- efface le formatage de la cellule
- met la nouvelle valeur dans la cellule
- applique le nouveau format
- vas a la cellule adjacente.

Pour les 4 premières tache pas de problème, là ou je n'y arrive pas c'est de passer a la cellule d'à coté sachant que la cellule de départ est aléatoire (la j'espère que je suis compréhensible, c'est toujours dur d'expliquer ce que l'on as dans la tête).

Exemple si je sélectionne la cellule A4 alors a la fin de la manip je devrai être en cellule B4, de même si ma sélection originel est B2 alors je voudrai aller en C2.

J'espère que ca peut être possible car ca m'aiderai a mort.

Merci d'avance de me consacrer un peu de temps.

[rtg57]

Bonjour,

il faut utiliser ActiveCell, par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub RoutineDecallage()
  Dim ligne As Integer
  Dim colonne As Integer
 
  With ActiveCell
    ligne = .Row
    colonne = .Column
  End With
 
  Cells(ligne + 1, colonne + 1).Select
End Sub

Evidemment, on peut faire un code plus "condensé", c'est pour l'exemple

@ bientôt...

[casefayere]

Bonsoir,

ou tout simplement

Code :

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

ActiveCell.Offset(0, 1).Select

[Richard67]

Merci casefayere
C'est exactement ce que je cherchais.

Mille merci