J'ai un petit problème d'autoentrepreneur à vous soumettre

' // Attention pseudo code en relation avec VBA/Excel

 
' // Variables

char nom_du_fichier_à_traiter  ' // char[] --> String

char fichier_traité            ' // trop simple pour justifier une variable

char code_tva = "0"            ' // Utilisons un entier (Integer)

char nom_four = dim[30]        ' // char[] --> String

int ligne_à_traiter = 1        ' // Impossible de définir et d'initialise en même temps. Il faut deux lignes

int tva = 1.196               

int coef = 0                  

const feuille_3 = worksheet(3) ' // trop simple pour justifier une variable

 
// Programme

Demander nom_du_fichier_à_traiter                  ' // Utilise Application.GetOpenFilename

Demander nom du fournisseur en cours de traitement ' // Utilise InputBox ou crée un formulaire

Demander coef à appliquer                          ' // Utilise InputBox ou crée un formulaire

 
Si erreur_ouverture(nom_du_fichier_à_traiter)      

          exit

' // Ouverture d'une classeur : 

Set mon_classeur = Workbooks.Open(chemin)

' // Quitter la procédure :

Exit Sub

 
' // Créer quoi ?      

Si erreur_creation(fichier_traité)

    exit

 
Utilisation nom_du_fichier_à_traiter

Lecture feuille_3                        // on commence toujours à la troisième feuille du classeur.

 
Tant que pas fin des feuilles

    aller ligne_à_traiter

' // La liste des feuilles, c'est Worksheets

' // La 3ème feuille, c'est Worksheets(3) Facile !

' // Eh, la quantité de feuilles est connue : Worksheets.Count

' // Il faut donc utiliser un For

 
For feuille_en_cours = 3 To Worksheets.Count

    ' // C'est ici qu'il faut initialiser ligne_à_traiter

 
Tant que pas fin des lignes    

' // Comment détermines-tu la fin ?

 
Si colonne_3_ligne_à_traiter <> ""

' // On peut traiter la 3 cellule de la ligne en cours.

' // On peut aussi traiter la cellule (ligne_en_cours x 3)

' // Au choix :

Worksheets(feuille_en_cours).Rows(ligne_en_cours).Cells(3)

Worksheets(feuille_en_cours).Cells(ligne_en_cours, 3)

 
Si colonne_3_ligne_à_traiter estnum

' // Trop facile 

IsNum()

 
On selectionne les colonne[1 à 3]de la ligne_à_traiter

recopie dans fichier_traité[ligne_à_traiter]

' // Non, non et non. On ne sélectionne pas, on désigne simplement et on agit dessus :

Worksheets(feuille_en_cours).Range(Worksheets(feuille_en_cours).Cells(ligne_en_cours, 3), Worksheets(feuille_en_cours).Cells(ligne_en_cours, 5)).Copy Destination:=....

' // C'est un peu lourd. On verra plus tard.

 
ligne_à_traiter + 1

 
fermeture nom_du_fichier_à_traiter

' // Facile :

mon_classeur.Close ' // Lire l'aide sur Close pour avoir quelques infos pertinentes

Sub ouvrir()
 
Dim Message, Title, Default, Fournisseur, FichierAOuvrir, FichierAEcrire, FichierCsv
Dim ligne_en_cours, Coef, feuille_en_cours, Nbr_Feuille
 
 
' Demander nom du fournisseur en cours de traitement
' Définit le message.
Message = "Nom du fournisseur à traiter"
Title = "Fournisseur à traiter"    ' Définit le titre.
Default = "FOUR1"    ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
Fournisseur = InputBox(Message, Title, Default)
 
' Demander coef a appliquer
' Définit le message.
Message = "Coefficent à appliquer"
Title = "Coef"    ' Définit le titre.
Default = "1.1"    ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
Coef = InputBox(Message, Title, Default)
 
' Ouverture du fichier à traiter
FichierAOuvrir = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
If FichierAOuvrir <> False Then
    Set mon_classeur1 = Workbooks.Open(FichierAOuvrir)
 
    ' Ajout d'une feuille ou seront recopiées les data interessantes
    Nbr_Feuille = Worksheets.Count
    Sheets.Add After:=Sheets(Sheets.Count)
 
    ' Traitement feuille en cours
    ' A partir de quelle feuille ?
    Message = "Traiter à partir de la feuille N° ?"
    Title = "Feuille"    ' Définit le titre.
    Default = "3"    ' Définition la valeur par défaut.
 
    ' Boucle de traitement des feuilles du classeur
 
    For feuille_en_cours = InputBox(Message, Title, Default) To Nbr_Feuille
 
        ' Traitement ligne par ligne
        For ligne_en_cours = 1 To Rows.Count
 
            ' Traitement ligne_en_cours, colonne 3
            ' Si est numériques (donc non null)
                If IsNumeric(ActiveSheet.Cells(ligne_en_cours, 3)) Then
 
               ' Copie des colonnes 1 à 3 dans une nouvelle feuille
               Worksheets(feuille_en_cours).Range(Cells(ligne_en_cours, 1), Cells(ligne_en_cours, 3)).Copy Destination:=Worksheets(Sheets(Sheets.Count)).Range(Cells(ligne_en_cours, 1), Cells(ligne_en_cours, 3))
 
            End If
        Next
    Next
 
End If
End Sub

zeb a dit :

Bon ap'. C'est Mardi Gras, mets-t'en plein la lampe !!!!!  
(EDIT: Il est où le "j'ai les crocs" ?)

-----------------------------------------

Ben c'est pas mal tout ça.
Y'a juste que t'as oublié d'initialiser ligne_en_cours.
Ah, pis remets ton test sur le non nul, parce qu'Excel considère qu'une cellule vide est numérique  

J'attends tes autres questions

' Boucle de traitement des feuilles du classeur
    For feuille_en_cours = InputBox(Message, Title, Default) To Nbr_Feuille
 
        ' Traitement ligne par ligne
        For ligne_en_cours = 1 To Rows.Count
 
            ' Traitement ligne_en_cours, colonne 3
            ' Si ce n'est pas null
            If Not IsNull(ActiveSheet.Cells(ligne_en_cours, 3)) Then
                ' Si c'est numérique 
                If IsNumeric(ActiveSheet.Cells(ligne_en_cours, 3)) Then
 
                    ' Copie des colonnes 1 à 3 dans une nouvelle feuille
                    Worksheets(feuille_en_cours).Range(Cells(ligne_en_cours, 1), Cells(ligne_en_cours, 3)).Copy Destination:=Worksheets(feuille_export).Range(Cells(ligne_en_cours, 1), Cells(ligne_en_cours, 3))
 
                End If
            End If
 
        Next
    Next

Worksheets(feuille_en_cours).Range("A" & ligne_en_cours & ":C" & ligne_en_cours).Copy _

                    Destination:=Worksheets(feuille_export).Range("A" & ligne_en_cours)

Sub ouvrir()

 
Dim Message, Title, Default, Fournisseur, FichierAOuvrir, FichierAEcrire, FichierCsv, MonTrim 'Strings

Dim ligne_en_cours, feuille_en_cours, nbre_ligne, Nbr_Feuille, feuille_export 'Ints

 
Dim ligne_en_cours_src As Long

Dim ligne_en_cours_dest As Long

 
 
' Demander nom du fournisseur en cours de traitement

' Définit le message.

Message = "Nom du fournisseur à traiter"

Title = "Fournisseur à traiter"    ' Définit le titre.

Default = "FOUR1"    ' Définition la valeur par défaut.

' Affiche le message, le titre et la valeur par défaut.

Fournisseur = InputBox(Message, Title, Default)

 
' Ouverture du fichier à traiter

FichierAOuvrir = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")

If FichierAOuvrir <> False Then

    Set mon_classeur1 = Workbooks.Open(FichierAOuvrir)

 
    ' Traitement feuille en cours

    Nbr_Feuille = Worksheets.Count

 
    ' Ajout d'une feuille qui sera exportée

    Sheets.Add After:=Sheets(Sheets.Count)

    feuille_export = Worksheets.Count

    'MsgBox Nbr_Feuille & " " & feuille_export

    Set FichierCsv = Worksheets(feuille_export)

 
 
    ' A partir de quelle feuille ?

    Message = "Traiter à partir de la feuille N° ?"

    Title = "Feuille"    ' Définit le titre.

    Default = "3"    ' Définition la valeur par défaut.

 
    ligne_en_cours_dest = 0

 
    ' Boucle de traitement des feuilles du classeur

    For feuille_en_cours = InputBox(Message, Title, Default) To Nbr_Feuille

 
        ' Traitement ligne par ligne

        For ligne_en_cours_src = 1 To Worksheets(feuille_en_cours).UsedRange.Rows.Count

 
            ' Traitement ligne_en_cours, colonne 3

 
            ' Si ce n'est pas une ligne blanche intercalaire

            If Not IsEmpty(Worksheets(feuille_en_cours).Cells(ligne_en_cours_src, 3).Value) Then

 
                ' Si la colonne C est numérique

                If IsNumeric(Worksheets(feuille_en_cours).Cells(ligne_en_cours_src, 3)) Then

 
                    ligne_en_cours_dest = ligne_en_cours_dest + 1

 
                    ' Pour enlever les lignes fusionnées dans les colonnes A et B.

                    ' (Copié-Coller de l'aide Excel)

                    With Worksheets(feuille_en_cours).Cells(ligne_en_cours_src, 1)

                        If .MergeCells Then

                            .MergeArea.UnMerge

                        End If

                    End With

                    With Worksheets(feuille_en_cours).Cells(ligne_en_cours_src, 2)

                        If .MergeCells Then

                            .MergeArea.UnMerge

                        End If

                    End With

 
                    ' Copie des données

                    Worksheets(feuille_en_cours).Range("A" & ligne_en_cours_src & ":C" & ligne_en_cours_src).Copy _

                    Destination:=Worksheets(feuille_export).Range("A" & ligne_en_cours_dest)

                    ' Enlever les blancs multiples en début de ligne désignation

                    Worksheets(feuille_export).Range("B" & ligne_en_cours_dest) = Trim(Worksheets(feuille_export).Range("B" & ligne_en_cours_dest))

                    ' Modif tarif ht en ttc

                    Worksheets(feuille_export).Cells(ligne_en_cours_dest, 3) = Worksheets(feuille_export).Cells(ligne_en_cours_dest, 3) * 1.196

                    ' Ajout Désignation longue

                    Worksheets(feuille_export).Cells(ligne_en_cours_dest, 4) = Worksheets(feuille_export).Cells(ligne_en_cours_dest, 2)

                    ' Ajout Nom du Fournisseur

                    Worksheets(feuille_export).Cells(ligne_en_cours_dest, 5) = Fournisseur

                    ' Ajout type tva "0"

                    Worksheets(feuille_export).Cells(ligne_en_cours_dest, 6) = "0"

                    ' Ajout famille de produit

                    Worksheets(feuille_export).Cells(ligne_en_cours_dest, 7) = Worksheets(feuille_en_cours).Name

 
 
                End If

            End If

 
        Next

    Next

 
End If

End Sub