Discussion :

[edpth]

Bonjour
C'est mon premier message sur ce forum..... Soyez indulgent si ma demade est mal forulée et n'hésitez pas à me corriger....
Ci-aprés j'ai écris en italique la requête que j'aimerai bien pouvoir lancer sur un tableur de gestion destinée au Très petite entreprise. Je n'ai aucune idée si cela est possible sur Excel
Rechercher dans les Feuilles 01 à 12 toutes les lignes qui contiennent dans leur colonne A "nomduclient" et recopie ces lignes les unes après les autres dans la Feuille 14.
Les lignes ainsi recopiée devront l'être dans des cellules vérouillée et protégée car aucune Saisie ou modification ne devront être possible
Cette requête est bien sûr à rédiger dans la Feuille 14 /

[rvtoulon]

Bjr,
Excel permet de faire de nombreuses choses dont ce que tu demandes.
Voici un code qui parcours qui fait ce que tu demandes, il faut l'adapter à tes besoins.
En considérant que tes lignes à vérifiers commence à la cellule A1 et que tu veuilles les copier à partir de la première ligne de la feuil14 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Copie() 
Dim i , j , x as long
x=1
 
'on fait une boucle sur les feuilles 1 à 12
For i=1 to 12
  with sheets ("Feuil" & i)
   'on fait une deuxieme boucle jusqu'a la dernière ligne pleine de la feuille 
     For j = 1 to .range ("A65000").end (xlUp).Row
    'Si dans la colonne A on trouve "Nom du Client" alors
     if .Cells (j, 1) = "Nom du Client" then
     'Jé sélectionne la ligne complète et la copie dans la feuil14
     .Cells (j, 1).EntireRow.copy Sheets ("Feuil14").Cells (x, 1)
     x=x+1
     End if
   next j
  End with
Next i
End Sub

Met ce code dans un module de l'éditeur vba.
Si tu as des questions n'hésite pas.
A+

EDIT: Ce Code ne Vérouille pas les cellules de la feuille 14 donc des saisies sont possibles. Une recherche sur le Forum ou la FAQ te permettras de trouver les lignes de code pour vérouiller des cellules.

[edpth]

Je sais pas si c'est par ce moyen que l'on remercie pour les informations mais j'ai essayé sur l'icône MP qui m'a refusé l'accès.
Donc Merci rv Toulon ( c'est ma ville natale) . Je suis pas assez calé en programmation pour tirer toute l'utilité de ta réponse>. Je l'ai donc envoyé à l'un de mes fils qui s'y connaît en programmation et qui pourra je l'espère faire quelque chose.....

[rvtoulon]

Slt,
De rien c'était un plaisir

N'oublie pas de mettre résolu si c'est ok.