Formulaire pour transfert de donnees

[MISTERJUNGLE]

Bonjours a tous ...

besoin d'aide !! le but etant d'inscrire les donnees dans le formulaire et les basculer sur la feuille correspondante
macro prise sur le site
fonctionne uniquement sur une ligne et besoin de plus..
je n'arrive pas avec la macro
merci pour votre aide.

 

[Guest]

Re : Formulaire pour transfert de donnees

Bonjour,


Pas de contrôle sur l'existence des feuilles dans la macro suivante.

Sub Valider()
    Dim c As Range
    Application.ScreenUpdating = False
    Dim nomfeuil As String
    With Sheets("FORMULAIRE")
        For Each c In .Range("C4:C22")
            If c <> "" Then
                nomfeuille = c
                Sheets(nomfeuille).Unprotect
                With c.Offset(, -1).Resize(, 7)
                    Sheets(nomfeuille).Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 7).Value = .Value
                    .ClearContents
                End With
                Sheets(nomfeuille).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            End If
        Next
    End With
    Application.ScreenUpdating = True
End Sub

A+

 

[MISTERJUNGLE]

Re : Formulaire pour transfert de donnees

Bonsoir HASCO , JEAN MARCEL et le forum,

merci HASCO pour ton aide c super,du coup jen'ai pas essaye la macro de JEAN MARCEL que je remerci d'avance
a plus et bonne soiree