Discussion :

[DavidOI85]

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 :

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

1
2
3
4
5
 
Sub Macro2()
        SendKeys "{F2}", 1
        SendKeys "~", 1
End Sub

Je l'appel comme cela:

Code :

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

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

[lucasgaetan]

bonjour,

As-tu regardé des sujet similaire:
https://www.developpez.net/forums/d1...r-f2-p-entree/

[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 ?

[Thumb down]

Bonsoir,

Je ne comprend pas pourquoi ?

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

[DavidOI85]

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

[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)

[lucasgaetan]

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 :

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
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

[DavidOI85]

Salut,

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

Code :

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

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