boucle a 2 conditions : Prenom et nom alors report valeur

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

XCo

XLDnaute Occasionnel
bonjour le forum,

j`ai une boucle simple qui me permet de reporter des donnees d`une feuille (ou je mets les donnees) vers une autre feuille.
je cherche a reporter selonla combinaison nom & prenom
actuellement, ca marche pour le nom mais comment je combine 2 elements?

merci

xco
 

Pièces jointes

Re : boucle a 2 conditions : Prenom et nom alors report valeur

Bonjour le Forum,
Bonjour XCo,

Bon par macro je ne sais pas faire, mais en attendant pour peut etre te dépanner un exemple par formule, pour mettre en couleur les cellules qui ne sont pas trouées une mise en forme conditionnelle

Jocelyn
 

Pièces jointes

Re : boucle a 2 conditions : Prenom et nom alors report valeur

salut Jocelyn,

ah par excel je sais aussi 😉

j`essaie vraiment par VBA car le file est utilise par plusieurs personnes et un bouton avec une macro qui update est le meilleur moyen pour eviter de voir la formule excel disparaitre ...
de meme, ca evite les pb de calculs car (moi par exemple), je desactive tjs le calcul automatique.

merci quand meme pou l`effort! 😀

XCo
 
Re : boucle a 2 conditions : Prenom et nom alors report valeur

Bonjour.

à tester
Code:
Sub Primes()
  
  Dim Lig1 As Integer, Lig2 As Integer
  Dim Cel As Range, C As Range

  Application.ScreenUpdating = False
  Lig1 = Range("A10000").End(xlUp).Row
  Lig2 = Sheets("Source").Range("A10000").End(xlUp).Row

  For Each Cel In Range("A1:A" & Lig1)
    For Each C In Sheets("Source").Range("A1:A" & Lig2)
      If Cel & Cel.Offset(, 1) = C & C.Offset(, 1) Then
        Cel.Offset(0, 2) = C.Offset(, 2)
      End If
    Next C
  Next Cel
  Application.ScreenUpdating = True
End Sub
 
Dernière édition:
- 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
8
Affichages
471
Réponses
4
Affichages
678
Réponses
5
Affichages
472
Réponses
2
Affichages
455
Réponses
9
Affichages
583
Réponses
5
Affichages
639
Retour