XL 2019 je voudrais transféré les donnée de la feuille 1 via un model sur tous les entreprise via des critère pour les colonne.

[desquiens.gabriel@hotmail]

Bonsoir a tous ,

je suis désoler des faute

j'aurai besoin de votre aide.

j'ai pris une macro déjà excitant dans se forum et je voudrais la modifier mais je n'arrive pas.

j'ai expliqué se que je voulais faire dans le fichier .

On résumer je voudrais transféré les donnée de la feuille 1 via un model sur tous les entreprise via des colonne via des critère.

je suis dyslexique désoler

Merci de votre aide

 

[cp4]

merci énormément

Pas de quoi. Si le code répond à ta demande, merci de pointer à droite du message (flèche haut). Ceci facilitera les recherches aux autres membres.
Bonne journée.

 

[Dadi147]

Bonjour, j'ai presque le même fichier, mais avec les feuilles de calcul déjà sur le fichier, pouvez-vous me fournir un code que je peux copier les données pour une feuille particulière, à condition que son nom soit dans la colonne A, où vous copiez tous les données dans sa propre feuille

 

[desquiens.gabriel@hotmail]

Bonjour, j'ai presque le même fichier, mais avec les feuilles de calcul déjà sur le fichier, pouvez-vous me fournir un code que je peux copier les données pour une feuille particulière, à condition que son nom soit dans la colonne A, où vous copiez tous les données dans sa propre feuille

Private Function GetColumn(Num As Integer) As String
If Num <= 26 Then
GetColumn = Chr(Num + 64)
Else
GetColumn = Chr((Num - 1) \ 26 + 64) & Chr((Num - 1) Mod 26 + 65)
End If
End Function
Sub FindValue()
Dim xAddress As String
Dim xString As String
Dim xFileName As Variant
Dim xUserRange As Range
Dim xRg As Range
Dim xFCell As Range
Dim xSourceSh As Worksheet
Dim xSourceWb As Workbook
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xUserRange = Application.InputBox("Lookup values :", "Kutools for Excel", xAddress, Type:=8)
If Err <> 0 Then Exit Sub
Set xUserRange = Application.Intersect(xUserRange, Application.ActiveSheet.UsedRange)
xFileName = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", 1, "Select a Workbook")
If xFileName = False Then Exit Sub
Application.ScreenUpdating = False
Set xSourceWb = Workbooks.Open(xFileName)
Set xSourceSh = xSourceWb.Worksheets.Item(1)
xString = "='" & xSourceWb.Path & Application.PathSeparator & _
"[" & xSourceWb.Name & "]" & xSourceSh.Name & "'!$"
For Each xRg In xUserRange
Set xFCell = xSourceSh.Cells.Find(xRg.Value, , xlValues, xlWhole, , , False)
If Not (xFCell Is Nothing) Then
xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 2) & "$" & xFCell.Row
End If
Next
xSourceWb.Close False
Application.ScreenUpdating = True
End Sub

 

[cp4]

Bonjour, j'ai presque le même fichier, mais avec les feuilles de calcul déjà sur le fichier, pouvez-vous me fournir un code que je peux copier les données pour une feuille particulière, à condition que son nom soit dans la colonne A, où vous copiez tous les données dans sa propre feuille

Bonjour @Dadi147 ,

Il faut ouvrir ta propre discussion et joindre un fichier.
S'insérer dans une discussion n'est pas correct, tu n'auras pas de réponse.
Bonne journée.

 

[desquiens.gabriel@hotmail]

Bonjour @Dadi147 ,

Il faut ouvrir ta propre discussion et joindre un fichier.
S'insérer dans une discussion n'est pas correct, tu n'auras pas de réponse.
Bonne journée.

j'ai besoin de ton aide

j'ai réussi a faire ça mais pas a copier sur le model tu pourrai m'aider ?

 

[cp4]

j'ai besoin de ton aide

j'ai réussi a faire ça mais pas a copier sur le model tu pourrai m'aider ?

Bonsoir,
@desquiens.gabriel@hotmail : Ce n'est pas du tout le même fichier. Sur ce coup, désolé de ne pouvoir t'aider.
Demande à celui qui t'a "pondu" le code.
Bonne soirée.

 

[desquiens.gabriel@hotmail]

Bonsoir,
@desquiens.gabriel@hotmail : Ce n'est pas du tout le même fichier. Sur ce coup, désolé de ne pouvoir t'aider.
Demande à celui qui t'a "pondu" le code.
Bonne soirée.

la personne qui ma fait le code laisser tomber a la fin alors je chercher une personne qui peux m'aider

 

[cp4]

Bonjour,

Ton fichier en retour, j’espère que tu vas t'y mettre sérieusement à t'améliorer.

 

[desquiens.gabriel@hotmail]

Bonjour,

Ton fichier en retour, j’espère que tu vas t'y mettre sérieusement à t'améliorer.

c'est parfait