Discussion :

[GreatTeacherOnizuka]

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 :

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

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?

[Marc-L]

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 du forum …

[Menhir]

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 :

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

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.

[GreatTeacherOnizuka]

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 :

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

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 :

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

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?

[Menhir]

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

[GreatTeacherOnizuka]

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.

[Menhir]

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