Augmenter de 1 la cellule active

[alain.dutoit]

Salut à tous,

J'ai un fichier dans lequel je dois très fréquemment augmenter la valeur d'une cellule de 1.

Je n'arrive pas à le faire via une macro. Quelqu'un aurait une solution?

Merci d'avance

Alain

 

[jeanpierre]

Re : Augmenter de 1 la cellule active

Bonjour alain.dutoit,

Tu dessines un bouton (avec la barre d'outils Contrôles) sur ta feuille. Double clic sur le bouton et avec clic droit sur l'onglet et visualiser le code, tu trouves :

Private Sub CommandButton1_Click()
End Sub

Il te reste à rajouter entre ces deux lignes : Range("a1") = Range("a1") + 1
pour la cellule A1.

Toujours sur la barre d'outils Contrôles tu cliques sur l'équerre pour fermer le mode édition.

Bonne journée.

Jean-Pierre

 

[alain.dutoit]

Re : Augmenter de 1 la cellule active

Merci beaucoup, mais comment faire si la cellule n'est jamais la même?

Alain

Bonjour alain.dutoit,

Tu dessines un bouton (avec la barre d'outils Contrôles) sur ta feuille. Double clic sur le bouton et avec clic droit sur l'onglet et visualiser le code, tu trouves :

Private Sub CommandButton1_Click()
End Sub

Il te reste à rajouter entre ces deux lignes : Range("a1") = Range("a1") + 1
pour la cellule A1.

Toujours sur la barre d'outils Contrôles tu cliques sur l'équerre pour fermer le mode édition.

Bonne journée.

Jean-Pierre

 

[alain.dutoit]

Re : Augmenter de 1 la cellule active

C'est bon j'ai trouvé... Merci beaucoup et très bonne journée

Private Sub CommandButton1_Click()
ActiveCell = ActiveCell + 1
End Sub

Merci beaucoup, mais comment faire si la cellule n'est jamais la même?

Alain

 

[jeanpierre]

Re : Augmenter de 1 la cellule active

Re,

Avec : ActiveCell = ActiveCell + 1
au lieu du Range précédent.

Il convient de selectionner la cellule receptrice de ton choix.

Jean-Pierre

 

[alain.dutoit]

Re : Augmenter de 1 la cellule active

J'ai affecté ça à une macro (et pas seulement à un bouton) et ça marche très bien. Est-il possible de la déclencher via un click de droite sur la cellule à incrémenter?

 

[jeanpierre]

Re : Augmenter de 1 la cellule active

Re,

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell = ActiveCell + 1
Cancel = True
End Sub

Jean-Pierre

 

[alain.dutoit]

Re : Augmenter de 1 la cellule active

Je n'arrive pas à le faire mais ça n'est pas grave, je ne vais pas t'embêter plus longtemps. Je me contenterais du raccourcis Clavier.

Merci beaucoup en tout les cas et bonne journée

Re,

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell = ActiveCell + 1
Cancel = True
End Sub

Jean-Pierre

 

[jeanpierre]

Re : Augmenter de 1 la cellule active

Re,

As-tu bien mis ce code dans la feuille et non dans un module ? Puisque tu parlais que tu avais affecté la procédure à une macro.

Voir fichier

Jean-Pierre

 

[alain.dutoit]

Re : Augmenter de 1 la cellule active

A oui c'est tout bon..... Merci beaucoup... J'avais pas mis sur la feuille...

Bonne journée

Alain