amsterdam | Fausse alerte. ça ne va pas plus vite.
Je met quand même la nouvelle version du code.
Code :
- Option Explicit
- Dim v_cellule_ref_1, v_cellule_ref_2, v_cellule_four1, v_cellule_four2, vref_1, vref_2, vfour1, vfour2 As String
- Dim v_colonne_ref_1, v_colonne_ref_2, v_colonne_four1, v_colonne_four2, v_cellule_resultat, v_temps As String
- Dim v_ligne_1, v_ligne_2, g, h, i, j As Integer
- Private Sub CommandButton1_Click()
- v_temps = Timer
- v_colonne_ref_1 = "F"
- v_colonne_four1 = "J"
- v_colonne_ref_2 = "A"
- v_colonne_four2 = "D"
- v_ligne_1 = 2
- v_ligne_2 = 1
-
- Worksheets(1).Activate
-
- For g = 2 To 2000
- v_cellule_ref_1 = v_colonne_ref_1 & g
- v_cellule_four1 = v_colonne_four1 & g
- Worksheets(1).Range(v_cellule_ref_1) = Trim(Worksheets(1).Range(v_cellule_ref_1))
- Worksheets(1).Range(v_cellule_four1) = Trim(Worksheets(1).Range(v_cellule_four1))
- Next g
-
- Worksheets(2).Activate
-
- For h = 1 To 6000
-
- v_cellule_ref_2 = v_colonne_ref_2 & h
- v_cellule_four2 = v_colonne_four2 & h
- Worksheets(2).Range(v_cellule_ref_2) = Trim(Worksheets(2).Range(v_cellule_ref_2))
- Worksheets(2).Range(v_cellule_four2) = Trim(Worksheets(2).Range(v_cellule_four2))
-
- Next h
-
- Worksheets(1).Activate
-
- For i = v_ligne_1 To 50
- v_cellule_resultat = "C" & i
- v_cellule_ref_1 = v_colonne_ref_1 & i
- v_cellule_four1 = v_colonne_four1 & i
- vref_1 = Worksheets(1).Range(v_cellule_ref_1)
- vfour1 = Worksheets(1).Range(v_cellule_four1)
-
-
-
- Worksheets(2).Activate
-
- For j = v_ligne_2 To 6000
- v_cellule_ref_2 = v_colonne_ref_2 & j
- v_cellule_four2 = v_colonne_four2 & j
- vref_2 = Worksheets(2).Range(v_cellule_ref_2)
- vfour2 = Worksheets(2).Range(v_cellule_four2)
-
-
- Worksheets(1).Activate
-
- If vref_1 = vref_2 And vfour1 = vfour2 Then Worksheets(1).Range(v_cellule_resultat) = "ACTIF": GoTo suite
- Next j
- suite:
- Next i
-
- MsgBox Timer - v_temps
- End Sub
|
En fait ça allait plus vite car le fichier excel était foiré du à une mauvaise manip de ma part et au lieu d'avoir une chaine de caractère genre: 0PAST4.1EP0.8T40
j'avais "faux"
Ce qui est bizarre c'est que ce sont deux chaines de caractères..non ? Message édité par amsterdam le 04-12-2007 à 20:11:42
|