Remplissage d’un Bordereau pré imprimé par un code VBA

[Ilino]

BONSOIR Forum
si vous permettez mon 2 eme souci est comment automatiser le remplissage du mon Bordereau d’Envoi on rentrant seulement le N°
Est-il possible par un code VBA ??
ci joint l'exemple pour plus de détaills
Cordiali saluti

 

[Ilino]

Re : Remplissage d’un Bordereau pré imprimé par un code VBA

Bonsoir forum
Je relance ma sollicitation pour un help (je ne sais pas si j’étais claire ????) mémé Si elle existe une proposition via des formules
🙁
Merci😱

 

[Ilino]

Re : Remplissage d’un Bordereau pré imprimé par un code VBA

Bonjour forum
je ne sais pas est ce que mon souci n'est pas Compréhensif (précis) ???
Cordiali saluti

 

[jp14]

Re : Remplissage d’un Bordereau pré imprimé par un code VBA

Bonjour

Ci dessous une procédure évènementielle à terminer concernant les transferts de données.

Option Explicit
Dim flag As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ShtD As Worksheet
Dim Dl1 As Long ' dernière ligne
Dim data1 As String
Dim cellule As Range

If flag = True Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("b9:b9" & Dl1)) Is Nothing Then
   flag = True
   With Sheets(Target.Worksheet.Name)
    Dl1 = 13
   .Range("A13:K31").ClearContents
   .Range("c32:K32").ClearContents
   
   Set ShtD = Sheets("SFE")
   Application.ScreenUpdating = False
        For Each cellule In ShtD.Range("j4:j" & ShtD.Range("j" & Rows.Count).End(xlUp).Row)
            If cellule = Target Then
                .Range("a" & Dl1) = ShtD.Range("b" & cellule.Row)
                .Range("c" & Dl1) = ShtD.Range("f" & cellule.Row) & " " & ShtD.Range("g" & cellule.Row) & " " & ShtD.Range("h" & cellule.Row)
'************************
' à modifier et à compléter si nécessaire
                .Range("f" & Dl1) = ShtD.Range("b" & cellule.Row)
                .Range("g" & Dl1) = ShtD.Range("d" & cellule.Row)
                .Range("h" & Dl1) = ShtD.Range("e" & cellule.Row)
                .Range("i" & Dl1) = ShtD.Range("f" & cellule.Row)
                .Range("j" & Dl1) = ShtD.Range("m" & cellule.Row)
'**************
                
            
                Dl1 = Dl1 + 1
                If Dl1 = 32 Then Exit Sub ' le nombre de lignes est limité
            End If
        Next cellule
        
    Application.ScreenUpdating = True
    End With
End If
flag = False


End Sub

JP

 

[Ilino]

Re : Remplissage d’un Bordereau pré imprimé par un code VBA ( RESOULU)

Buongiorno Signor JP
Super.... je te remercie infiniment, c’est exactement ce que je cherche encore une fois un grand GRAZIE tu m'a sauvé maitre.
Grazie grazie grazie