Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion a10
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : copie valeur

Salut Rachid !
Pour une fois qu'a10 nous met un fichier exemple sans qu'on lui demande 5 fois ;-)
je crois que le premier fichier était une erreur.. d'ou son post #4
;-)
et bon week end
 
Re : copie valeur

Bonjour,

Voici lamacro qui fonctionne:
Sub test()

ligne = Cells(1, 1)
With Sheets("Feuil1").Range("Destination")
Set c = .Find(ligne, LookIn:=xlValues)
If Not c Is Nothing Then
lig = c.Row
Cells(c.Row, 6) = Cells(2, 2)
Cells(c.Row, 7) = Cells(2, 3)
End If
End With



End Sub


Si ma feuille change de mon la cro fonctionne t elle ou faut il changer cett eligne?

With Sheets("Feuil1").Range("Destination")


pourquoi :Range("Destination")

a+
 
Re : copie valeur

explication:

dans ta feuille "feuil1", j'ai nommé ton tableau jaune "Destination"
comme ca.. si tu le déplaces. pas de pb. ca suit
par contre.. si tu changes le nom de la feuille.. il faudra effectivement changer la ligne:
With Sheets("Feuil1").Range("Destination")

encore que. je suis pas sur, vu que l'étendue de la zone nommée est sur tout le classeur
euh.. d'ailleurs. je crois qu'il va y avoir un pb en cas de déplacement du tableau... je regarde et je rectifie..

autre chose, dans la macro, tu peux supprimer la ligne:
lig = c.Row

c'était juste pour moi. ca ne sert plus à rien
 
Re : copie valeur

bonjour,

je viens de comprendre la zone d'impression
1/ mais j'ai des onglets différents

2/ j'ai une macro qui selectionne l'onglet
3/ et dans l'onglet je recopie les valeurs devant le jour correspondant

a+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
462
Réponses
10
Affichages
120
  • Question Question
Microsoft 365 Remplissage auto
Réponses
14
Affichages
369
  • Résolu(e)
Microsoft 365 DATEDIF
Réponses
11
Affichages
415
  • Question Question
Microsoft 365 Recherche valeurs
Réponses
4
Affichages
143
Réponses
4
Affichages
242
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…