Copier des noms en VBA

[MAZETTE]

Bonjour à tous,


Je souhaiterai à partir d'une macro de copier des noms de la feuille 1 sur la feuil2 .

J'ai commencé à écrire un bout de code me permettant de copier la feuil1 sur la feuil2, d'efectuer une recherche en fonction du nom et de selectionner la 1er cellule contenant un nom mais là où je bloque c'est sur la suite....

La feuil1 est une exportation à patir d'un logiciel qui concerve les constantes suivantes:

les noms sont toujours à droite de salarié
Il y a toujours 13 semaine entre "Salarié" et "Totaux"...

Je crois que c'est plus simple à comprendre avec le bout de fichier.

Merci à vous

 

[jhofman]

Re : Copier des noms en VBA

essaye ainsi

Sub Macro1()
'
    Sheets("Feuil1").Select
    Cells.Select
    Selection.Copy
    Sheets("Feuil2").Select
    Cells.Select
    ActiveSheet.Paste
    
    With Sheets("Feuil2").Activate

For a = 3 To Range("A5536").End(xlUp).Row
If Cells(a, 1) <> "Salarié : " Then
    If Cells(a, 1) <> "" And Cells(a, 1) <> "TOTAUX" Then
    Cells(a, 2) = Cells(a - 1, 2)
    End If
End If
Next a
End With
    
End Sub

mais tu peux beaucoup simplifier....

 

[pierrejean]

Re : Copier des noms en VBA

bonjour Mazette

Vois si cela te convient

Edit: Salut jhofman

 

[jhofman]

Re : Copier des noms en VBA

Sub Macro1()
Sheets("Feuil1").Cells.Copy Sheets("Feuil2").Range("A1")
Sheets("Feuil2").Select
For a = 3 To Sheets("Feuil2").Range("A5536").End(xlUp).Row
If Cells(a, 1) <> "Salarié : " Then
    If Cells(a, 1) <> "" And Cells(a, 1) <> "TOTAUX" Then
    Cells(a, 2) = Cells(a - 1, 2)
    End If
End If
Next a
End Sub

un peu plus court....

 

[jhofman]

Re : Copier des noms en VBA

j'ais pas vu pierrejean
.. qui code plus proprement encore...

 

[MAZETTE]

Re : Copier des noms en VBA

Bonsoir à tous,

Merci à tous les deux ...c'est parfait....super