Lire et ecrire des donnees

[nanard25]

Bonjour à Tous,

Je planche depuis quelques temps sur un problème que je n'arrive pas à solutionner :

Par rapport à un numéro de facture donné :
J'aimerai sur la feuille FactCompta lire toutes les lignes de la facture(exemple Facture N° 8)
et les écrire dans la feuille 'Facturation' à partir de la ligne 18 et ne pas dépasser la ligne 34


Merci beaucoup de passer un peu de votre temps pour m'éclairer dans cette tache ardue

Nanard25

 

[Eric 45]

Re : Lire et ecrire des donnees

Bonsoir à tous
Bonsoir Nanard

Je pense qu'avec ce code tu devrais t'en sortir, si j'ai bien compris :

Sub copie()
num_fact = 8    'reprendre le n° de facture
With Worksheets("FactCompta").Range("a2:a500")
    Set c = .Find(num_fact, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            ligne = c.Row
            Worksheets("Facturation").Cells(18 + a, 5).Value = Worksheets("FactCompta").Cells(ligne, 4).Value
            Worksheets("Facturation").Cells(18 + a, 4).Value = Worksheets("FactCompta").Cells(ligne, 5).Value
            Worksheets("Facturation").Cells(18 + a, 11).Value = Worksheets("FactCompta").Cells(ligne, 6).Value
            Worksheets("Facturation").Cells(18 + a, 12).Value = Worksheets("FactCompta").Cells(ligne, 7).Value
            a = a + 1
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
    a = 0
End With
End Sub

Tu nous dis

Eric

 

[nanard25]

Re : Lire et ecrire des donnees

Fantastique Eric,

Merci beaucoup, j'avais réussi à faire les prémices mais hyper long

Ton code marche super

Voici ce que j'avais trouvé comme solution simplement pour trouver les factures correspondantes et fonction non terminée :

Sub Creat_facture()

Dim FinFichier As Long
Dim FinFichier1 As Long
Dim NumeroFacture As Integer
Dim NumFacture As Integer

NumeroFacture = Application.InputBox("Numero Facture", _
"Entrer le Numero de Facture avec 6 Chiffres")

On Error GoTo GestErreur
Application.ScreenUpdating = False
Sheets("FactCompta").Select
FinFichier1 = Range("A65535").End(xlUp).Row

NumeroFacture = Right(NumeroFacture, 6)
Columns("A").Find(NumeroFacture).Activate
NumLigne = ActiveCell.Row
Range("A" + NumLigne).Select

GestErreur: ' Routine de gestion d'erreur.
Select Case Err ' Evalue le code d'erreur.
Case 91
MsgBox "Le Numero de Facture N° " & NumeroFacture & " n'existe pas"

Exit Sub
End Select

'---------- Commence la lecture de la facture -----------------
EcritFact = 18
NumFact = Range("A" & NumLigne).Value

Range("A2").Select
' Faire jusqu'à la 1ere cellule vide
Do While ActiveCell <> Empty
NumFact = Range("A" & NumLigne).Value

If NumFact <> NumeroFacture Then
Exit Do
End If

'---------- Lecture de la Facture -------------------------
Sheets("FactCompta").Select

NumFact = Range("A" & NumLigne).Value
DateduJour = Range("C" & NumLigne).Value
' NumClient = Range("C8").Value
Designation = Range("D" & NumLigne).Value
Quantite = Range("E" & NumLigne).Value
Prix = Range("F" & NumLigne).Value
Tva = Range("G" & NumLigne).Value

MsgBox (NumFact & " / " & NumeroFacture & " / " & DateduJour & " / " & Designation & " / " & Quantite & " / " & Prix)

NumLigne = NumLigne + 1
EcritFact = EcritFact + 1

'----- sinon, on descend d'une ligne --------------
ActiveCell.Offset(1, 0).Select
Loop
Sheets("Facture").Select
End Sub


avec ton code tout se met en place comme par miracle

Merci encore à Eric, et à toutes les personnes qui se sont penchées sur mon problème

Bonne soirée