Comment copier

Alors bonjour tout le monde

J’ai un petit problème avec mon code vba

Alors j’ai un classeur ou il Ya plusieurs feuils chaque feuils représente une fiche individuelle d’un travailleur qui contient :

A1 : nom prénom

B1 : date de naissance

C1 : nombre des jours du congé annuel

Alors chaque feuil et renommer par le nom et prénom de l’agent.

Ma question est comment écrire un code vba qui permettre de copier le contenu de toute les cellules A1 et C1 de toute les feuilles sauf la feuille « accueil » et les coller dans la feuille « accueil » .

Bonjour

sans fichier

Sub test()
Dim Ws As Worksheet

  For Each Ws In Sheets
    If Ws.Name <> "accueil" Then
      Ws.Range("A1:C1").Copy Destination:=Sheets("accueil").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    End If
  Next Ws
End Sub

Merci Banzai64

Ça marche bien mais :

Si je veux épargner deux ou trois feuil par exemple « accueil » et « base » et « premier »

Comment faire alors.

En plus mes cellule contienne des formule alors avec cette méthode il copier la formule mais moi je veux qu’il copier et coller les résultat.

Bonjour

Une variante

Sub test()
Dim Ws As Worksheet

  For Each Ws In Sheets
    Select Case Ws.Name
      Case "accueil", "base"," premier" ' les feuilles à exclure
      Case Else
        Ws.Range("A1:C1").Copy Destination:=Sheets("accueil").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    End Select
  Next Ws
End Sub

merci bien ça marche mais:

comment faire pour le contenu des cellule qui contiens des formule

par exemple en A1 de toute les feuils sauf les épargnés il y a une formule: =si(A1="";"";recherche v(A1;base;2;faux)) et moi je veux avoir après le collage le résultat de la formule pas la formule elle même par exemple "adam",

Bonjour

Encore un exemple qu'avec un fichier une réponse aurait été fournie plus rapidement

Sub test()
Dim Ws As Worksheet

  For Each Ws In Sheets
    Select Case Ws.Name
      Case "accueil", "base", " premier" ' les feuilles à exclure
     Case Else
        Ws.Range("A1:C1").Copy
        Sheets("accueil").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    End Select
  Next Ws
  Application.CutCopyMode = False
End Sub

merci merci mais

Je vous laisse découvrir le fichier joint

Bonjour

A voir si cela te convient

Merci tu es un géni

Mais j’ai fait une erreur alors pardon je t’envoyer le classeur

Bonjour

A vérifier

ça marche très bien merci Banzai64 .

Ci si pas exagéré j’ai un autre problème

Bonsoir

A voir

merci ça marche

Salut voici mon problème

J’aimerai bien avoir un Botton ou a l’action il me donne le choix para ports a la fonction des agents qui ce présent en C8.