problème dans mon programme

[pierregilles]

Voici mon programme,

il copie des données d'un formulaire vers un autre classeur excel où celles ci sont collées, enregistrées,et ferme ce classeur.

Toutes les lignes renseignées se collent (sauf les lignes vides) mais seulement 5 colonnes sont renseignées. Comment faire pour plus de colonnes puissent être collées?

Cordialement

Sub E2V()
'En considérant que seule la colonne A est testée pour rechercher les lignes vides

With Workbooks("Formulaire.xls").Sheets("E2V")
Largeur = .Range("A1:" & .Range("IV1").End(xlToLeft).Address).Columns.Count
For Each X In .Range("A3:" & .Range("A65536").End(xlUp).Address)
If X <> "" Then
X.Resize(1, Largeur).Copy (Workbooks("BaseDeDonnées.xls").Sheets("E2V").Range("A65536").End(xlUp).Offset(1, 0))
End If
Next
End With
Windows("Formulaire.xls").Activate
Rows("3:65536").Select
Selection.ClearContents
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 5
Range("A3").Select
ActiveWorkbook.Save
Windows("BaseDeDonnées.xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close




End Sub

 

[Kotov]

Re : problème dans mon programme

Bonjour PierreGilles

Je ne suis pas certain d'avoir compris ce que tu souhaites.

Je te propose le code suivant qui recopie les lignes du "Formulaire" dont les cellules de la colonne A ne sont pas vides vers ton classeur "BaseDeDonnées"

Ce qui revient en fait à copier l'intégralité des tes données du formulaire vers la base de données, puis supprimer les lignes dont les cellules de la colonne A sont vides. C'était à mon sens plus simple à programmer.

L'exemple suivant est certainement simplifiable, mais je suis resté le plus proche possible de ta demande initiale.

Sub E2V()
'En considérant que seule la colonne A est testée pour rechercher les lignes vides

Workbooks("Formulaire").Activate
With ActiveWorkbook
Dim r%
Dim c%
Dim i%
Dim n%
With .Sheets("E2V")
r = Cells(65536, 1).End(xlUp).Row
c = Cells(1, 256).End(xlToLeft).Column
For i = 1 To r
    If Cells(i, 1) <> "" Then
        n = n + 1
        Rows(i).Copy (Workbooks("BaseDeDonnées.xls").Sheets("E2V").Cells(n, 1))
    End If
Next
    .Rows("3:65536").ClearContents
    Cells(3, 1).Select
End With
    .Save
End With
Workbooks("BaseDeDonnées").Activate
With ActiveWorkbook
    .Save
    .Close
End With
End Sub

Dis moi si ca te convient
A +
Kotov

 

[ChTi160]

Re : problème dans mon programme

Salut pierregilles
Bonsoir Kotov

Je ne suis pas sur d'avoir compris ta question

mais seulement 5 colonnes sont renseignées. Comment faire pour plus de colonnes puissent être collées?

veux tu dire que tu as plus de 5 colonnes, mais la procèdure n'en Colle que 5 ?

Merci D'avance
Bonne fin de Soirée

 

[Kotov]

Re : problème dans mon programme

Bonsoir Chti, ravi de te croiser de nouveau !

Comme toi, je suis dans le flou quand à la demande de PierreGilles.

J'ai compris qu'il voulait transférer l'intégralité des lignes dont la cellule A n'est pas vide, mais plus j'y pense, plus je doute.

Bah, on verra bien...
Bonne nuit
Kotov

 

[ChTi160]

Re : problème dans mon programme

Salut pierregilles
Bonjour Kotov
Bonjour le Forum

Kotov ,non je pense que tu as bien compris la démarche ,c'est la deuxieme demande de pierregilles qui n'est pas claire (Histoire de colonnes)
Donc pas de panique !!!!!! lol
je pars quelques jours donc Bon Week End 😎😎