Sendkeys et validation de données

Version imprimable

18/11/2019, 15h34
DavidOI85

Sendkeys et validation de données
Bonjour,

J'ai un fichier Excel qui est complété par plusieurs utilisateurs. Ce fichier permet de créer un document texte pour un import dans un ERP (Sage X3)
Je suis limité dans le format des colonnes à compléter, j'ai donc utilisé la validation des données : j'impose un format date au dates, un nombre de caractère maxi pour d'autres informations...
Tous cela fonctionne très bien.

Le problème arrive quand des utilisateurs 'colle' des données dans mon tableau.
1- A ma connaissance, la validation des données ne fonctionne pas dans le cas d'un 'copié/collé', sauf si vous me dite le contraire...
2- Pour contourner ce problème, j'ai imaginé parcourir mon tableau (40x100) et avec la fonction SendKeys, revalider les informations une à une
de manière simple voici mon code:
Code:

1 2 3 4 5 Sub Macro2() SendKeys "{F2}", 1 SendKeys "~", 1 End Sub
Je l'appel comme cela:
Code:

1 2 3 4 5 6 7 8 9 Sub Macro1() For c = 1 To 40 For l = 1 To 100 Toto.Cells(l, c).Select Macro2 Next Next End Sub
Lorsque j'appel la macro 2, mon fonctionnement est correct.
Lorsque j'appel la macro 1, je balaye tous le tableau, et après j'entre et sort (F2+Entrer) sur la dernière cellule de ce tableau 4000 fois.
Je ne comprend pas pourquoi ?

Pouvez vous m'aider?
sachant que j'ai plusieurs fichier Excel qui fonctionne sur ce même principe

Merci d'avance
Excel 2013
VBA 7.1
18/11/2019, 16h14
lucasgaetan

bonjour,

As-tu regardé des sujet similaire:
https://www.developpez.net/forums/d1...r-f2-p-entree/
18/11/2019, 17h08
DavidOI85

Bonjour,

Si vous parlez de cette solution : Cells(i, "A") = Cells(i, "A"), cela ne répond pas à ma question, car on ne réécrit pas le contenu de la cellule et donc ne revalide pas la validation de données

une autre piste ?
18/11/2019, 18h04
Thumb down

Bonsoir,

Citation:

Je ne comprend pas pourquoi ?

Moi c'est ce que la Macro est sensé faire que je ne comprends pas!
19/11/2019, 09h13
DavidOI85

Citation:

Envoyé par Thumb down

Bonsoir,

Moi c'est ce que la Macro est sensé faire que je ne comprends pas!

Ma macro revalide le contenu des cellules, et donc la validation des données
21/11/2019, 11h19
DavidOI85

Sur mon tableau, j'ai 40 colonnes de 100 lignes
Sur chaque colonne j'ai des conditions de formats : Les colonnes dates, j'attends une dates. Les colonnes quantités, j'attends un entier, Les colonnes prix, j'attends un décimal. Les colonnes désignations, j'attends un nombre de caractère maxi et vérifie si des caractères interdits ne sont pas utilisé. Les colonnes codes, j'attends un nombre précis de caractères... Bref vous avez surement compris le principe.
Si un utilisateurs ne renseigne pas correctement les infos attendus, la 'validation de données' lui interdit de valider sa saisie.
Dans le cas d'un copie/coller, la validation de données ne fonctionne pas.
Pour détourner ce problème, j'ai imaginé de ressaisir les cellules une à une avec un 'F2'+'Entrer' : j'entre dans la cellules et je la valide --> la 'validation de données' peux alors vérifier si la cellule est conforme.

Si je lance ma macro 2, le fonctionnement attendu est OK
Si je lance ma macro 1, cela ne fonctionne pas (elle valide uniquement la dernière cellule)

j'ai imaginé de ressaisir les cellules une à une = Cells(i, "A") = Cells(i, "A") Non?
si tu veux aller plus loin, tu peux faire un truc du genre:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim monFormat As Variant
For c = 1 To 40
    monFormat = Cells(1, c).NumberFormat
    For i = 1 To 100 'j'ai changer le l par i, l se confond facilement avec 1
        Select Case monFormat
        Case "dd/mm/yy;@"
            Cells(i, c).Value = Format(Cells(i, c).Value, "dd/mm/yyyy")
'        Case "blabla" 'La tu ajoutes tous les cas voulu
'            Cells(i, c).Value = Format(blabla)
        Case "Standard"
            Cells(i, c).Value = Cells(i, c).Value
        Case Else
            Cells(i, c).Value = "Erreur"
        End Select
    Next
Next

Solution

Salut,

Après de nombreuse recherche et essais j'ai trouvé une solution:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
For c = 1 To 40
For l = 1 To 100
    If Cells(l, c).Value <> "" And Cells(l, c).HasFormula = False Then 'je ne fais pas la vérification sur les cellules vide, ni sur celles qui contiennent des formules
        Cells(l, c).Select
        SendKeys "{F2}~", True
        DoEvents * je suis sûr que le Sendkeys passe
        If Cells(l, c).Validation.Value = False Then ' Si il y a un problème de validation de donnée, j'arrête toutes mes macros
        End
        End If
    End If
Next
Next