Problème de Macro

[gourdin]

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

 

[gourdin]

Re : Problème de Macro

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

 

[gourdin]

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

 

[Fo_rum]

Re : Problème de Macro

Salut,

à tester le

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

 

[gourdin]

Re : Problème de Macro

Salut,

à tester le

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

🙂 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)

 

[phlaurent55]

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

 

[gourdin]

Re : Problème de Macro

Merci.

C'est clair et astucieux