Récupérer la valeur des formules et les intégrer

[mic2lam]

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

 

[tbft]

Re : Récupérer la valeur des formules et les intégrer

bonjour

je ne suis pas contre un ou deux fichier(s) avec des données bidons...