Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Probleme remplacement de ligne avec conditions

  • Initiateur de la discussion Initiateur de la discussion lufy50
  • 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 !

L

lufy50

Guest
Bon voila c'est encore moi avec (encore !) un probleme.

J'ai sur le classeur 2 feuilles avec 2 bases.
Dans ces 2 bases des lignes peuvent correspondre par un numero
Je souhaite que si un numero de la feuille ("données") est egal à un numero de la feuil("temp") alors on remplace la ligne en question de ("données") par la ligne de base (et on efface la ligne de base par la meme occasion).

Merci et à bientot.

Lucy
 

Pièces jointes

Re : Probleme remplacement de ligne avec conditions

Salut thomlau,

😀 😀 😀

Comment as tu fait pour trouver une couleur de police très exactement identique à celle du fond?
 
Re : Probleme remplacement de ligne avec conditions

Pliée de rire 🙂

T'inquiète, pour ma part je regrette de ne pouvoir t'aider (trop nulle en vba) mais thomlau a certainement une idée, il a simplement dû cliquer trop vite et envoyer son message avant même de l'avoir écrit...

Sur qu'il reviendra tout à l'heure après avoir fini la vaisselle.

(euh non, laisse tomber, je me trompe de fil là ...)

@ +

mth
 
Re : Probleme remplacement de ligne avec conditions

Bonsoir le fil,

lufy50, comme thomlau n'a pas fini la vaisselle 😀, je te propose ce code pour le bouton validation:

Code:
Sub remplace()
  For Each numero In Range([B2], [B2].End(xlDown))
    With Sheets("Données")
      Set trouve = .Columns(2).Find(numero.Value, LookIn:=xlValues, lookat:=xlWhole)
      Range(numero.Offset(0, -1), numero.Offset(0, 12)).Copy .Range(trouve.Offset(0, -1), trouve.Offset(0, 12))
      Range(numero.Offset(0, -1), numero.Offset(0, 12)).ClearContents
    End With
  Next
End Sub
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
15
Affichages
847
Réponses
19
Affichages
867
Réponses
6
Affichages
333
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…