Vba

Résolu/Fermé
djeff94
Messages postés
26
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
25 avril 2013
- 25 févr. 2013 à 14:23
djeff94
Messages postés
26
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
25 avril 2013
- 27 févr. 2013 à 11:53
Bonjour,
je suis un novice en vba je viens tout juste de my mettre donc voila
j est creer une macro de teste qui fait la comparaison entre la cologne 1 de la feuille 1 avec les valeur saisi sur la feuille 2 dans la cologne 1 et me dis si les valeur sans excate ou je me suis tromper ds la saisi pour le momen j arrive juste a colorier les cellule donc j aimerai savoir comment je dois faire pour ramener aussi le numero des ligne erroné
je pense qu il faut utiliser un tableau dynamique ms la jy arrive pas
je vous poste l exemple sur le quelle je travail

Public Sub cherche_A1()
Dim sel As Variant
Dim t() As Variant
Dim ii As Integer
ii = 8
Dim strMessage As String, Boucle As Integer

Do While Not (IsEmpty(ActiveCell))

Set sel = Sheets("Deal e-force").Columns("A").Find(Sheets("site offer").Range("A" & ii))


If sel Is Nothing Then
Sheets("site offer").Range("A" & ii).Interior.ColorIndex = 6
ReDim t(ii)
t(ii) = ii

ii = ii + 1
Else
End If

Selection.Offset(1, 0).Select


Loop
strMessage = "Erreur de saisi sur les lignes:"

ReDim t(ii)

For Boucle = 8 To UBound(t)

strMessage = strMessage & " , " & t(Boucle)

Next Boucle

MsgBox strMessage, vbOKOnly, "erreur sur la saisie du code e-force"
End Sub

merci


2 réponses

pijaku
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 700
26 févr. 2013 à 09:21
Bonjour,

Dès que l'on parle de doublon en VBA, il faut voir du côté de l'objet dictionary.
Jette un oeil sur ce tuto.

La partie qui t'intéresse davantage ICI
0
djeff94
Messages postés
26
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
25 avril 2013

27 févr. 2013 à 11:53
MERCI c est parfait
0