sousis sur la de programmation simple VBA Fermé

Question

Bonjour,
Je suis désolé je suis grand débutant j'ai tenter de multiple algo en VBA mais je ne réussi rien j'ai tout le temps des problème de sintaxe.
de plus je ne sais pas comment mis prendre

Donc je cherche à comparer 2 tableaux

Mon premier tableau contient des Numero que l'on retrouve dans mon deuxième tableaux,

ex: premier tableau
1
2
3
4

deuixième tableau
2
3
1
4

mais pas dans le même ordre comme si desus 

donc le programme que j'ai chercher à faire doi verrifier si les numero contenu dans le premier tableau son bien contenue dans le deuxième tableau

dans le cas contraire je voudrais avoir affiché un message d'erreur

Polux31 · Answer

Bonjour,

Peux-tu nous mettre ici l'algo que tu as fait et qui te pose problème ?

;o)

Utilisateur anonyme · Answer

Sub INITIALISER()
'Objectif : Initialiser la liste de 10 entiers saisie en ligne 3
Range("D3 : D14").Select
Selection = none
End Sub



Sub AFFICHER_LISTE()
'Objectif : afficher la liste d'entiers saisie en Ligne 5
 
'Déclarer le Tableau TAB_A et i
Dim TAB_A(1 To 12) As Integer
Dim i As Integer
 
'Récupérer et stocker dans TAB_A la liste des 10 entiers
i = 1
Do While (i <= 12)
    TAB_A(i) = Cells(4, i).Value
    i = i + 1
Loop
 
'Afficher la liste des 10 entiers saisie en Ligne 5
i = 1
Do While (i <= 10)
    Cells(5, i) = TAB_A(i)
    i = i + 1
Loop
 
End Sub


Déja celui la ne marche pas pour lir les données et les retranscrir alors les autre teste que j'ai fait n'on pas abouti et j'ai perdue la traçe en les suppriment par inadvertance

Polux31 · Answer

Je ne comprends pas bien tout là ...

Tu postes du code et non un algo là, ensuite tu parles de comparer 2 tableaux dans le post initial et je ne vois rien qui fassse une quelconque comparaison dans le bout de code que tu colles !!!

Utilisateur anonyme · Answer

désolé polux 31je n'ai pas reguardé le site je reguardais avec un pote et après je suis partit mais merci quand même.

Et désolé j'ai utlisé un mauvais language entre code et algo je suis grand débutant

mais mon pote a trouvé une bonne solution maintenant elle n'est pas parfaite car je voudrais qu'il y est une verrif qui se fais du tableau 1 au tableau 2 comme actuellement et l'inverse tableau 2 au tableau 1

De plus je cherche à verrifier qu'il y est moin de 3 h et dans la même journée entre deux passages les heure sont en toisième colone

expl:
tableau 1

00000001 27/4/2009 13:31:57
00000002 27/4/2009 13:31:58

tableau 2

00000002 27/4/2009 14:31:57
00000001 27/4/2009 14:32:08

le code que mon pote a fait est le suivant

Private Sub CommandButton1_Click()
Dim ligne As Integer
Dim colonne As Integer, verifier As Boolean, indice2 As Integer
Dim tableau1(20) As String, tableau2(20) As String, recherche As String

ligne = 4
indice = 1

While Cells(ligne, 8) <> ""
tableau1(indice) = Cells(ligne, 8)
ligne = ligne + 1
indice = indice + 1
Wend

indice = 1
indice2 = 1
ligne = 4

While Cells(ligne, 3) <> ""
verifier = False
recherche = Cells(ligne, 3)
indice = 1
While tableau1(indice) <> ""
If tableau1(indice) = recherche Then
verifier = True
End If
indice = indice + 1
Wend

If verifier = False Then
tableau2(indice2) = recherche
indice2 = indice2 + 1
End If

ligne = ligne + 1
Wend

indice2 = 1
If tableau2(1) = "" Then
MsgBox ("Tous les numeros existe!")
Else
While tableau2(indice2) <> ""
MsgBox ("le numero" & " " & tableau2(indice2) & " " & "n'existe pas !")
indice2 = indice2 + 1
Wend
End If
End Sub

Sousis sur la de programmation simple VBA

4 réponses

Discussions similaires