Sousis sur la de programmation simple VBA

Bonjour,

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

;o)

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

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

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