Discussion :

[Styck3rs]

bonjour à tous,

J'ai un petit souci sur un code VBA
Après plusieurs semaines de recherche infructueuse, je me tourne vers vous pour y voir un peu plus clair.

Merci de vos commentaires et de vos lumières.

Code de la page (feuil1) : (son but est d'écrire une formule dans une ou plusieurs cellules en fonction d'un autre tableau (variable sur une autre page))
(Si rajouts de données!T20 = 1, alors saisi!k5 = "formule" / Si rajouts de données!T21 = 1, alors saisi!k6 = "formule" / ect ect ....)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_selectionchange_boucle_for(ByVal Target As Range)  
Dim i As Integer                                                                        
For i = 20 to 56 
 
If worksheets("Rajouts Données").Cells(i, 20).Value = 1 Then             
Range("K" & i - 15).Select
ActiveCell.FormulaR1C1 = _
    "=IF(R[-0]C[-1]="""","""",LEFT(R[-0]C[-1],6))"
 
End If
 
End Sub

[Menhir]

J'ai un petit souci sur un code VBA

Pourrais-tu être plus explicite sur le "souci" que pose ce code ?
Plantage ? Quel message d'erreur ? Quelle ligne est désignée par le débugage ?
Mauvais résultat ? Quel est la différence entre le résultat souhaité et celui obtenu ?

Même si ton code pourrait être amélioré, il semble fonctionnel.

Le seul truc qui me choque, c'est le nom du Sub : si tu veux faire une macro évènementielle, tu ne peux pas lui donner le nom que tu veux. Il faut garder son nom.
En plus, dans le cas d'une macro évènementielle, je suis à peu près persuadé qu'une boucle ne serait pas une bonne idée.
Bref, j'ai l'impression que tu te mélanges un peu les pinceaux entre une macro évènementielle et une macro déclenchée.

[Styck3rs]

Salut menhir,

Oui je dois me mélanger les pinceaux je pense ! (mes codes sont calqués sur l’enregistreur de macro qui a ces limites)
Le code envoyé ne fonctionne pas, je n'ai pas de message d'erreur particulier, juste pas de lancement de la macro (ou événement)

J'ai pu crée des événements qui fonctionnes , comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub Worksheet_selectionchange(ByVal Target As Range)

If worksheets("Rajouts Données").Cells(20, 20).Value = 1 Then
Range("K5").Select
ActiveCell.FormulaR1C1 = _
    "=IF(R[-0]C[-1]="""","""",LEFT(R[-0]C[-1],6))"

End If
End Sub

Je dois donc écrire le code suivant pour chaque ligne :

Private Sub Worksheet_selectionchange(ByVal Target As Range)

If worksheets("Rajouts Données").Cells(20, 20).Value = 1 Then
Range("K5").Select
ActiveCell.FormulaR1C1 = _
    "=IF(R[-0]C[-1]="""","""",LEFT(R[-0]C[-1],6))"

If worksheets("Rajouts Données").Cells(21, 20).Value = 1 Then
Range("K6").Select
ActiveCell.FormulaR1C1 = _
    "=IF(R[-0]C[-1]="""","""",LEFT(R[-0]C[-1],6))"

If worksheets("Rajouts Données").Cells(22, 20).Value = 1 Then
Range("K7").Select
ActiveCell.FormulaR1C1 = _
    "=IF(R[-0]C[-1]="""","""",LEFT(R[-0]C[-1],6))"

.../...

If worksheets("Rajouts Données").Cells(20+N-1, 20).Value = 1 Then
Range("K" & 5+N-1).Select
ActiveCell.FormulaR1C1 = _
    "=IF(R[-0]C[-1]="""","""",LEFT(R[-0]C[-1],6))"

' N= nombre de boucle
 
End If
End Sub

Pour aller plus vite je voulais faire des boucles "For x = y to z step n"
Mais je pense pas que ce sois possible, sauf en macro déclenché !?
En faite je dois déclencher mes macros par un événement !?

Merci de ta réponses rapide, et pardonne moi de mon ignorance
Bonne Journée a tous

[halaster08]

Bonjour,

Un peu de documentation sur les macros évènementielles: https://silkyroad.developpez.com/VBA/EvenementsFeuille/

En faite je dois déclencher mes macros par un événement !?

C'est à toi de nous le dire ! On ne peut deviner ce que tu veux faire.
Si la réponse est oui, tu dois nommer ta sub en fonction de l'évènement déclencheur voulu.

Pour aller plus vite je voulais faire des boucles "For x = y to z step n"
Mais je pense pas que ce sois possible, sauf en macro déclenché !?

Pourquoi ce ne serait pas possible ?

[Menhir]

juste pas de lancement de la macro (ou événement)

Comme déjà dit dans mon précédent message, on ne peut pas faire ce qu'on veut avec les noms des macro évènementielles.
Pour être déclenchée par un évènement, une macro doit porter le nom EXACT correspondant à cet évènement.

[Styck3rs]

Oui effectivement .... si ont remplace l’événement par Private Sub Worksheet_Change(ByVal Target As Range),
Tout fonctionne bien

Merci a tous