Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Bonjour Max,


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

à+
Philippe
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
828
Réponses
4
Affichages
686
Réponses
15
Affichages
610
Réponses
8
Affichages
740
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
872
Réponses
4
Affichages
726
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…