comment copier avec vba

[zving2]

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 les feuille « accueil » et « base » et « premier » et les coller dans la feuille « accueil » .

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",

 

[Staple1600]

Re : comment copier avec vba

Alors bonjour tout le monde
J’ai un petit problème avec ton message zving2 ( la bienvenue sur le forum au fait)

Disons que ton message est orphelin d'un fichier exemple joint (cf la charte du forum sur ce point)

Donc en attendant ta PJ, je vais aller me rafraichir les pieds dans ma glacière.

 

[VDAVID]

Re : comment copier avec vba

Bonjour zving2, Staple1600,

Effectivement très vague !
Peut être dans un module:

Sub Feuil()
z = 1
Dim i&
For i = 1 To Sheets.Count
Sheets(i).Select
If ActiveSheet.Name = "Acceuil" Or ActiveSheet.Name = "base" Or ActiveSheet.Name = "premier" Then
GoTo Borne
End If
Sheets("Acceuil").Range("A" & z).Value = Range("A1").Value
Sheets("Acceuil").Range("A" & z + 1).Value = Range("B1").Value
Sheets("Acceuil").Range("A" & z + 2).Value = Range("C1").Value
z = z + 4
Borne:
Next i
End Sub

Bonne soirée !

 

[zving2]

Re : comment copier avec vba

Je vous laisse découvrir le fichier joint