Transfert d une feuille vers un autre en macro

[avyrex1626]

Bonjour à tous.

je voudrais savoir comment tranferer de la feuil1 chaque valeur de la colonne G à partir de la ligne 4 pour les tranferer dans la feuil2 colonne c à partir de la ligne 2, mais d'une facon bien specifique, dans les cellules, il ce peut qu'il soit vide mais aussi qu'il est des valeur ex: 000023456M.

Il ce peut aussi qu'il y est des valeur comme: 000045465M/000023157M

Je voudrais qu'il tranfert seulement les 10 premiers characteres.

Comment faire s.v.p?

merci pour votre aide.

 

[avyrex1626]

Re : Transfert d une feuille vers un autre en macro

Bonjour

Voici ce que j'ai pour maintenant

Dim i As Integer
Dim Derlign As Integer
Sheets("Feuil1").Select
With Sheets("Feuil1")
    For i = 4 To .Range("G65000").End(xlUp).Row
        If .Cells(i, 7) <> "" Then
            With Sheets("Feuil2")
                Derlign = .Range("C65000").End(xlUp).Row + 1
             
                .Cells(Derlign, 3) = Sheets("Feuil1").Cells(i, 7)
                .Cells(Derlign, 3).HorizontalAlignment = xlLeft
               
                
            End With
        
        End If
    Next
    
    End With
    Sheets("Feuil2").Select

Voir aussi example sur fichier excel avec résultat voulu dans la feuille 2

Merci encore pour votre aide

 

[Dull]

Re : Transfert d une feuille vers un autre en macro

Salut avyrex1626, le Forum

Peut-être comme cela si j'ai bien compris

Private Sub CommandButton1_Click()
Dim i As Integer
Dim Derlign As Integer
Sheets("Feuil1").Select
With Sheets("Feuil1")
For i = 4 To .Range("G65000").End(xlUp).Row
If .Cells(i, 7) <> "" Then
With Sheets("Feuil2")
Derlign = .Range("C65000").End(xlUp).Row + 1
.Cells(Derlign, 3) = Left(Sheets("Feuil1").Cells(i, 7), 10) ' ICI
.Cells(Derlign, 3).HorizontalAlignment = xlLeft
End With
End If
Next
End With
Sheets("Feuil2").Select
End Sub

Bonne Journée

 

[avyrex1626]

Re : Transfert d une feuille vers un autre en macro

Bonjour Dull

Merci beaucoup, c'est super comme ça.

Bonne journée