Compteur

maval

XLDnaute Barbatruc
Bonjour à tous,

J'ai sur ma feuille un code pour sélectionner des cellules en "D & G" "Bouton Sélectionne"
Code:
Sub selectionne()
Dim MaPlage As Range
Dim i, j As Integer
i = [K2]
j = [M2]
Set MaPlage = Range("D" & i & ":G" & j)
MaPlage.Select
End Sub
et un code pour changer les N° de ligne sélectionner à cet sélection "Bouton Ajout"
Code:
Sub ajout()
  Range("K2").Value = Range("K2").Value + 480
  Range("M2").Value = Range("M2").Value + 480
  [p1].Value = [p1].Value + 1 & "éme feuille"
  [p2].Value = Now()
End Sub
Lorsque je change de ligne à l'aide du bouton "Ajout" en "P1"j'aimerai avoir le N° de la sélection.
ex: si je click une fois sur "Ajout" en P1 je devrais avoir 1er feuille
si je click une deuxième fois sur "Ajout" en P1 je devrais avoir 2éme feuille ect....

Je vous remercie de votre aide

Cordialement

Max
 

Pièces jointes

  • compteur.xlsm
    17.4 KB · Affichages: 20

phlaurent55

Nous a quittés en 2020
Repose en paix
Bonjour Max,

Lorsque je change de ligne à l'aide du bouton "Ajout" en "P1"j'aimerai avoir le N° de la sélection.
ex: si je click une fois sur "Ajout" en P1 je devrais avoir 1er feuille
si je click une deuxième fois sur "Ajout" en P1 je devrais avoir 2éme feuille ect....

Voir fichier joint
Petite modif faite dans le code et ajout d'un format perso pour la cellule P1

à+
Philippe
 

Pièces jointes

  • 111.xlsm
    15.9 KB · Affichages: 22

Discussions similaires

Réponses
1
Affichages
1 K