Bonjour,
J'ouvre des fichiers textes pouvant faire jusqu'à 10000 lignes pour seulement en extraire une dizaine. J'ai fait le tri via des formules excel et je voudrais donc récupérer la valeur des formules pour ensuite les intégrées dans une autre feuille.
J'ai un soucis avec la récupération des valeurs sur ma feuille excel il semblerait que la macro tourne en continu sans s’arrêter...
L'intégration elle semble fonctionner correctement.
Apparemment c est la récupération des valeurs qui boucle je n'arrive pas à trouver pourquoi...
Merci d'avance pour votre aide
Mic
Private Sub CommandButton2_Click()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim Cellule As Range
Sheets("DATA").Activate
Sheets("SUIVI").Activate
For Each Cellule In Worksheets("DATA").UsedRange
If Cellule.HasFormula Then
Cellule.Formula = Cellule.Value
End If
Next Cellule
Col = "a"
NumLig = 2
With Sheets("DATA")
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 3 To NbrLig
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("SUIVI").Cells(NumLig, 1).Insert Shift:=xlDown
End If
Next
End With
End Sub
J'ouvre des fichiers textes pouvant faire jusqu'à 10000 lignes pour seulement en extraire une dizaine. J'ai fait le tri via des formules excel et je voudrais donc récupérer la valeur des formules pour ensuite les intégrées dans une autre feuille.
J'ai un soucis avec la récupération des valeurs sur ma feuille excel il semblerait que la macro tourne en continu sans s’arrêter...
L'intégration elle semble fonctionner correctement.
Apparemment c est la récupération des valeurs qui boucle je n'arrive pas à trouver pourquoi...
Merci d'avance pour votre aide
Mic
Private Sub CommandButton2_Click()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim Cellule As Range
Sheets("DATA").Activate
Sheets("SUIVI").Activate
For Each Cellule In Worksheets("DATA").UsedRange
If Cellule.HasFormula Then
Cellule.Formula = Cellule.Value
End If
Next Cellule
Col = "a"
NumLig = 2
With Sheets("DATA")
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 3 To NbrLig
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("SUIVI").Cells(NumLig, 1).Insert Shift:=xlDown
End If
Next
End With
End Sub