Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème de Macro

  • Initiateur de la discussion Initiateur de la discussion gourdin
  • 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 !

gourdin

XLDnaute Impliqué
Bonjour,

Une macro qui me donne du fil à retordre et pour laquelle vous m'avez déjà bien aidé.

Voir petit fichier joint explicatif

MERCI
 

Pièces jointes

Re : Problème de Macro

Bonjour à tous

et merci à tous ceux qui m'ont aidé.

Pour en finir, juste un petit complément d'aide pour ma macro,

Voir fichier joint.

En espérant etre, cette fois ci suffisamment clair

Merci encore de votre aide
 

Pièces jointes

Re : Problème de Macro

Salut,

à tester le
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Value = "clic" Then
    ligne = 7 + Int(Target.Row / 20) * 20
    Range("B" & ligne & ":B" & ligne + 9 & ",B" & ligne - 4 & "," _
          & Cells(ligne - 2, Target.Column).Address).Select
  End If
End Sub
 
Dernière édition:
Re : Problème de Macro


🙂 Merci beaucoup, celà fonctionne parfaitement

(Pour ne pas mourir idiot, une petite explication sur le code
7 + Int(Target.Row / 20) * 20 me plairait bien. Merci)
 
Re : Problème de Macro

Bonjour Gourdin

(Pour ne pas mourir idiot, une petite explication sur le code
7 + Int(Target.Row / 20) * 20 me plairait bien. Merci)

7 Parce les cellules que tu devras sélectionner se trouvent à partir de la ligne 7
cette formule te donne le reste de la division du numéro de la ligne (sur laquelle tu as cliqué) par 20..................;puisque tes données reviennent régulièrement toutes les 20 lignes

et c'est à partir de ce reste que la position ( lignes) des cellules à sélectionner est calculée

Attention 1 : Si quelque part ton intervalle est différent de 20 ça ne fonctionnera plus correctement
Attention 2 : si ta feuille est construite différement ( avec intervalles <>20 ) tu devras remplacer le 20 de cette formule par la valeur du nouvel intervalle

à+
Philippe
 
Dernière édition:
- 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

  • Question Question
Microsoft 365 problème d'index
Réponses
19
Affichages
503
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…