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 à dit:

merci énormément

Cliquez pour agrandir...

Dadi147 à dit:

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

Cliquez pour agrandir...

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

Dadi147 à dit:

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

Cliquez pour agrandir...

cp4 à dit:

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.

Cliquez pour agrandir...

desquiens.gabriel@hotmail à dit:

j'ai besoin de ton aide

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

Cliquez pour agrandir...

cp4 à dit:

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.

Cliquez pour agrandir...

cp4 à dit:

Bonjour,

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

Cliquez pour agrandir...