ligne VBA

[Esox]

Bonjour le forum,
Comment dire dans une macro :" si case A1 rempli alors a1+b1+C1+D1 copier coller sur une autre feuille et dans la meme macro la meme chose pour la case B1, et si elle est vide passer a la ligne de macro suivante ? en fait je veux faire cela sur environs 8 lignes.
Merci de votre aide....

 

[jp14]

Re : ligne VBA

Bonjour

Ci dessous le code correspondant au texte

Sub essai()
'Comment dire dans une macro :"
 Dim i As Integer

'

For i = 1 To 8 'en fait je veux faire cela sur environs 8 lignes.
'pour i= 1 jusqu'à la valeur 8
    If Sheets("Feuil1").Range("A" & i) <> "" Then 'si case A1 rempli alors
       'a1+b1+C1+D1 copier
       Sheets("Feuil1").Range("A" & i & ":D" & i).Copy _
       Destination:=Sheets("Feuil2").Range("A" & i) 'coller sur une autre feuille

    End If
'et si elle est vide passer a la ligne de macro suivante
Next i 

End Sub

JP

 

[Esox]

Re : ligne VBA

Re bonjour,
Je te remercie bcp pour cette réponse rapide. Je vais l'adapter à mon fichier dès que possible.
Merci encore....

 

[Esox]

Re : ligne VBA

Re bonjour JP14, le forum,
Cette macro marche impecc, mais que devrais je rajouter à celle ci, afin que le copier/coller suivant se mette à la suite du précédent collage ??
Merci bcp...

 

[jp14]

Re : ligne VBA

Bonsoir

Un peu d'explication serait nécessaire.
"se mette à la suite du précédent collage ??"
La suite peut être des colonnes ou des lignes.

Un exemple (fichier avec les données de base et l'objectif à atteindre ) est souvent plus compréhensif qu'un texte.

JP

 

[Esox]

Re : ligne VBA

Bonjour JP14, le forum,
Voici un fichier type, j'espère qu'il est assez clair... je te remercie...
Stef.

 

[jp14]

Re : ligne VBA

Bonsoir

Ci joint le fichier avec une procédure à tester.


JP

 

[Esox]

Re : ligne VBA

Bonjour JP, le forum,
C'est impecc... par contre, je souhaiterai mettre les noms de facon verticale. C est à dire, si 4 noms pour le bon n°100, que cela me créé 4 lignes, avec chacun des noms, et avec la référence 100 pour chaque ligne...
Merci du tps que tu me consacres...
Stef.

 

[jp14]

Re : ligne VBA

Bonjour

Ci dessous la procédure modifiée.

Sub inscription()
Dim nomfeuilledest As String
nomfeuilledest = "Feuil2"
Dim dl1 As Long ' dernière ligne
Dim i As Byte
Dim j As Byte

With Sheets("Feuil1")
j = 5
For i = 8 To 13
   
    If .Range("a" & i).Value <> "" Then
     dl1 = Sheets(nomfeuilledest).Range("a65536").End(xlUp).Row + 1
    Sheets(nomfeuilledest).Cells(dl1, j) = .Range("a" & i).Value
    .Range("a" & i).Value = ""
    Sheets(nomfeuilledest).Cells(dl1, j + 1) = .Range("b" & i).Value
    .Range("b" & i).Value = ""
    'N° BON      'NOM GRADE   NOM GRADE
    Sheets(nomfeuilledest).Range("A" & dl1) = .Range("c2").Value

    'DATE
    Sheets(nomfeuilledest).Range("b" & dl1) = .Range("g16").Value

    'AUTEUR
    Sheets(nomfeuilledest).Range("c" & dl1) = .Range("d16").Value

    'LIEU
    Sheets(nomfeuilledest).Range("d" & dl1) = .Range("f9").Value


    End If
Next i
    
    .Range("c2").Value = ""
    .Range("g16").Value = Format(Now, "dd/mm/yyyy")
    .Range("d16").Value = ""
    .Range("f9").Value = ""
End With
End Sub

A tester

JP

 

[Esox]

Re : ligne VBA

Je te remercie, je teste cela dès que possible mais pas avant la semaine prochaine...
Merci encore...
Stef.