A voir également:
- Sousis sur la de programmation simple VBA
- Iphone 14 simple - Guide
- Application de programmation - Guide
- Simple pdf - Télécharger - PDF
- Simple ocr - Télécharger - Bureautique
- Simple file locker - Télécharger - Sécurité
4 réponses
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
'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 !!!
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
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