VBA ou macro qui ne marche pas !
RésoluValerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 - 2 mars 2024 à 17:46
- VBA ou macro qui ne marche pas !
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
2 réponses
1 mars 2024 à 20:55
bonjour,
Merci de ne pas mettre trop de points d'exclamation, cela ne facilite nullement la lecture du texte.
C'est quoi, "une sélection automatique"?
Commence par décrire ce que tu fais pour faire "fonctionner" ton fichier, puis à quel moment il arrête de fonctionner
Je vois que ton fichier contient du code VBA. L'as-tu écrit? Le comprends-tu?
2 mars 2024 à 11:04
Bonjour yg_be,
C'est des données que je récupéres de livescore.fr HeadtoHead dans un match
Je peux te montrer mon chemin en modifiant le ficher excel originel en y intégrant des screens.
Non, il a toujours fait ça pour '' DVK'' et je pensais que c'était correct sur les 2 autres.
Mais après un contrôle , j'ai pu voir que les valeurs H2 et H3 n'etaient pas correctes.
Je cherche la ligne VBA ou la macro cachée qui charge H2 et H3 en ''DVK''.
Une idée?
2 mars 2024 à 14:34
Ce n'est pas caché, c'est dans la fonction Worksheet_Change() de l'onglet "Datas".
Cette fonction est appelée automatiquement à chaque changement dans l'onglet.
2 mars 2024 à 17:46
Problème résolu.
Effectivement j'avais cela :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Variant
Dim WS As Worksheet
Dim VF As Boolean
With Sheets("DVK")
For i = 1 To 3
.Shapes("Case d'Option A" & i).ControlFormat = False 'RAZ
Next
i = Application.Match([H2], Array("X", "Y", "NUL"), 0)
If IsNumeric(i) Then .Shapes("Case d'Option A" & i).ControlFormat = True
For i = 4 To 6
.Shapes("Case d'Option B" & i).ControlFormat = False 'RAZ
Next
i = Application.Match([H3], Array("X", "Y", "NUL"), 0)
If IsNumeric(i) Then .Shapes("Case d'Option B" & i + 3).ControlFormat = True
End With
J'ai simplement fait 2 copier coller en changeant DVK en DVKO1 et DVKO2.
J'avais regardé partout. Merci yg_be de m'avoir donner cette lumiére.
1 mars 2024 à 21:14
Bonsoir,
Désolé pour les points d'exclamation.
J'ai décris par '' sélection automatique ''
C'est que la valeur de la cellule H2 ( dans '' DATAS'' ) soit 'X'' se reportent dans l'onglet '' DVK '' dans la Règle 1.
Pareil pour la valeur de la cellule H3 ( dans '' DATAS'' ) ''Y'' se reportent dans l'onglet '' DVK '' dans la Règle 2.
Cela marche que sur cet onglet ; '' DVK ''
Il fonctionne lorsque je drop des données dans '' DATAS'' dans la Cellule A25,
Il termine à l'onglet '' Général'' après avoir reporté les résultats sous chaque onglet.
Je comprends presque le code VBA en place, la personne qui l'amis en place n'est plus de ce monde.
N'hésitez pas à me poser vos questions yg_be
2 mars 2024 à 05:46
Tu n'expliques pas quelle données mettre en A25.
Il me semble que ton code fonctionne bien. Comme il est écrit, il ne s'occupe de mettre à jour les "règles" que dans l'onglet "DVK".
Il faisait autrement avant que tu le modifies?