Verification sur changement valeur

Bonjour,

Je crée actuellement un fichier excel à partir d'une base de donnée, ensuite je peux compléter les différents champs du fichier comme tout fichier excel.

Je voudrais qu'une macro puisse vérifier si les données que je rentre sont cohérentes.

Pour cela pas tellement de problème,

Code:

---

1 2 3

For i=1 To 1000 'Je vérifie si ma variable est d'un certain type et j'envoie un message d'erreur si ce n'est pas bon Next i

---

Mais je voudrais que cette action s'exécute dès qu'un utilisateur renseigne une donnée sur la feuille excel et sans avoir à exécuter la macro.

J'ai vu qu'on pouvait utiliser des WithEvents mais il faut forcément l'utiliser en classe objet apparemment.

Avez vous une méthode sans classe objet, ou une piste?

Sinon, connaissez vous un moyen pour appliquer une telle macro à un fichier excel que l'on récupérerai dans un répertoire?

Bonjour,

afin d'éviter un code (quasi impossible à fournir vu les contradictions dans cette présentation !),

revenir donc au B-A-BA d'une feuille de calculs d'Excel, à savoir la Validation des données …

Cf aide Excel et :faq: du forum …

Citation:

---

Envoyé par GreatTeacherOnizuka

Mais je voudrais que cette action s'exécute dès qu'un utilisateur renseigne une donnée sur la feuille excel et sans avoir à exécuter la macro.

---

Tu peux utiliser l'évènement Change de l'objet Worksheet.

Dans ton éditeur de projet, tu pointes sur le feuille de calcul concernée et tu places dans son code :

Code:

---

Private Sub Worksheet_Change(ByVal Target as Range)

---

Avec, dedans, ta macro ou un appel à ta macro.

Mais fait attention : ça va vraiment déclencher ta macro à tous les changement dans la feuille, ce qui peut être très lourd à l'usage.
Généralement, on allège ça en commençant par un IF qui vérifie si la cellule qui vient d'être modifiée est pertinente pour lancer la macro, histoire de ne pas la lancer de manière intempestive.

Regarde les précision dans l'aide VBA intégrée.

Merci effectivement, si ça s'exécute en permanence ça risque de poser quelques problèmes. J'imagine que quand je vais remplir mes fichier à partir de grande bases de données ça va peut être ramer.

Je suis parti sur une autre solution, j'intègre un bouton à mon fichier excel, comme cela:
(Ce code là est dans une fonction)

Code:

---

1 2 3 4 5

With xlSheet.Buttons .Add(400, 30, 70, 30).Select .OnAction = "Verif(10, 10)" .Caption = "Vérifications" End With

---

Et je veux que OnAction réalise cela par exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Verif(ByRef valeur1 As Integer, ByRef valeur2 As Integer)   'If Not xlSheet.Intersect(Target, xlSheet.Range("A10:J100")) Is Nothing Then For i = 9 To valeur2 If IsNumeric(xlSheet.Cells(3, valeur1).Offset(i, 0)) = False Then xlSheet.Range("A1:C10").Interior.Color = vbRed End If Next i   End If 'La valeur de la variable "valeur" est modifiée (donc la variable "nombre" est modifiée) End Sub

---

Mais, j'ai un bug justement sur le OnAction, une idée du problème?

Quand tu passes un "If" en commentaire, pense à passer aussi en commentaire le "End if" qui va avec.

Oups oui merci bien vu, à part cela la structure est correcte? Car j'ai le même message d'erreur, il me dit impossible de définir la propriété OnAction de la classe Buttons.

Quelle est la nature de xlSheet et Buttons ? Ce sont des variables ?

xlSheet c'est ma feuille excel, buttons c'est une fonction de VBA qui me permet d'ajouter un bouton. Tout marche très bien, le bouton se place comme je veux si je mets en commentaire la partie avec la propriété: OnAction.

Mais je veux que ce bouton puisse exécuter le petit bout de code de ma sub verif.

Je viens de faire un test en choisissant de mettre aucune variable d'entrée à ma sub, et là ça fonctionne. C'est un peu embêtant, mais je vais trouver un moyen d'arranger cela.

Par contre ça ne marche pas totalement, la macro n'est pas intégrée au fichier que je génère. Il faut que je trouve une solution à ce nouveau problème. Si vous avez des pistes, je suis preneur.

Merci en tout cas et bonne soirée.