Définir une variable numérique

Bonjour,

Dans mon fichier ci-joint je voudrais optimiser une macro qui prend énormément de temps.

Voici le code en question :

Sub Regrouper_Infos_Meme_Ligne_Nomenclature()

Dim i As Double
Dim j As Double

Dim ADerlig As Integer

ADerlig = Worksheets("Nomenclature").Range("A" & Rows.Count).End(xlUp).Row

Application.ScreenUpdating = False

With Worksheets("Nomenclature")
    With .Range("A1:B" & ADerlig)
        For i = 1 To Rows.Count
            For j = 0 To 100
                If .Cells(i, 1) = j & ".00 EA " Then
                    'j = 8
                    'If IsNumeric(j) = True Then
                        .Cells(i - 1, 2) = .Cells(i, 1)
                        .Cells(i, 1) = ""
                        Rows(i).Select
                        Selection.Delete Shift:=xlUp
                    'End If
                End If
            Next j
        Next i
    End With
End With

Application.ScreenUpdating = True

End Sub

Je voudrais définir la variable j comme étant un nombre allant de 0 à infini.

Je ne voudrais plus passer par une boucle for qui va de 0 à 100 comme je l'ai fait car cela prend trop de temps.

Comment faire pour dire à VBA que j est une variable numérique uniquement ?

Je vous remercie par avance pour votre aide.

GuiGui8731

bonjour,

Ce qui prend du temps ce n'est pas la définition des variables mais le travail sur feuille Excel

A+

Bonjour galopin01,

Que veux-tu dire par le travail sur feuille excel ?

Je devrais passer par une autre méthode pour essayer de gagner du temps sur cette macro ?

Cordialement

GuiGui8731

Bonjour,

Sans vouloir vous froisser ce classeur est invraisemblable !

Le UserForm est inutilisable et comme il n'y a aucune donnée la macro n'est pas testable.

Fournir un classeur présentant au moins quelques lignes utilisables pour exécuter la macro.

A+

Bonjour,

Ce classeur est encore au stade de création. La Userform servira à aller cherche le nom du fichier quand tout sera prêt.

J'ai ajouté les informations départ dans le fichier joint.

Il s'agit des cellules contenant uniquement le format suivant : "8.00 EA ", "22.00 EA " et ainsi de suite.

Je voudrais définir les 8, 22 et autre nombre par une variable unique "j" par exemple qui serait définie comme variable numérique.

GuiGui8731

Je pense qu'il est inutile de te référer à cette macro pour me dire ce qu'il faut faire.

Me dire simplement en français à partir des données quel résultat tu veux obtenir.

Tu veux juste gardé les lignes qui ont un nombre ?

A mon avis il y a beaucoup trop de lignes dans ton exemple. De plus il faut me préciser s'il va y avoir d'autre données "autour" de cette liste. (En-têtes, lignes vides, lignes en haut, au milieu ou en bas, autres lignes non concernées par l'exemple)

Bref il me faut un feuille certes tronquées pour les données, mais conforme à l'original dans sa structure.

Ensuite mettre en surbrillance (en couleur) les cellules que tu veux conserver.

Un classeur sans macro avec juste les données sera suffisant.

A+

Dans les données présentes dans le tableau en colonne A. J'aimerais que les cellules qui contiennent uniquement le format suivant : 8.00 EA ou 22.00 EA soient remontées d'une ligne et décalées en colonne B.