[EXCEL] Recherchev avec doublons
Fermé
Margaouw
Messages postés
3
Date d'inscription
mercredi 12 novembre 2008
Statut
Membre
Dernière intervention
28 décembre 2010
-
28 déc. 2010 à 15:01
Margaouw - 28 déc. 2010 à 18:55
Margaouw - 28 déc. 2010 à 18:55
A voir également:
- [EXCEL] Recherchev avec doublons
- Supprimer les doublons excel - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Doublons photos - Guide
- Word et excel gratuit - Guide
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
28 déc. 2010 à 16:55
28 déc. 2010 à 16:55
Bonjour
Sans VBA et par formule matricielle; les 2 classeurs doivent être ouverts
maquette-princioe à adapter à tes classeurs
http://www.cijoint.fr/cjlink.php?file=cj201012/cijwIV1SCz.zip
Sans VBA et par formule matricielle; les 2 classeurs doivent être ouverts
maquette-princioe à adapter à tes classeurs
http://www.cijoint.fr/cjlink.php?file=cj201012/cijwIV1SCz.zip
Margaouw
Messages postés
3
Date d'inscription
mercredi 12 novembre 2008
Statut
Membre
Dernière intervention
28 décembre 2010
28 déc. 2010 à 18:12
28 déc. 2010 à 18:12
Bonsoir,
Merci beaucoup, j'ai réussi à faire marcher la formule mais finalement, je vais tout insérer dans le même fichier et j'aimerai pouvoir réaliser la même chose que la macro suivante en allant prendre les informations dans un autre fichier et non un onglet contenu dans ce fichier.
Pour résumer, la macro suivante était présente dans le fichier Suivi et j'aimerai pouvoir l'intégrer dans un onglet de mon Report en allant piocher dans mon Suivi. Est-ce réalisable ?
Sub Actualiser_VD_Suivi()
MsgBox "Attention cette opération peut durer plusieurs minutes!"
i = 4
j = 2
Do
If Sheets("Clients").Cells(i, 17) = ("VD") Then
If Sheets("Clients").Cells(i, 24) <> "" Then
Sheets("Com VD Suivi").Cells(j, 1) = Sheets("Clients").Cells(i, 19)
Sheets("Com VD Suivi").Cells(j, 2) = Sheets("Clients").Cells(i, 5)
j = j + 1
End If
End If
i = i + 1
Loop Until Sheets("Clients").Cells(i, 67) = ""
End Sub
Merci d'avance
Félix
Merci beaucoup, j'ai réussi à faire marcher la formule mais finalement, je vais tout insérer dans le même fichier et j'aimerai pouvoir réaliser la même chose que la macro suivante en allant prendre les informations dans un autre fichier et non un onglet contenu dans ce fichier.
Pour résumer, la macro suivante était présente dans le fichier Suivi et j'aimerai pouvoir l'intégrer dans un onglet de mon Report en allant piocher dans mon Suivi. Est-ce réalisable ?
Sub Actualiser_VD_Suivi()
MsgBox "Attention cette opération peut durer plusieurs minutes!"
i = 4
j = 2
Do
If Sheets("Clients").Cells(i, 17) = ("VD") Then
If Sheets("Clients").Cells(i, 24) <> "" Then
Sheets("Com VD Suivi").Cells(j, 1) = Sheets("Clients").Cells(i, 19)
Sheets("Com VD Suivi").Cells(j, 2) = Sheets("Clients").Cells(i, 5)
j = j + 1
End If
End If
i = i + 1
Loop Until Sheets("Clients").Cells(i, 67) = ""
End Sub
Merci d'avance
Félix
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
28 déc. 2010 à 18:33
28 déc. 2010 à 18:33
Finalement, je vais tout insérer dans le même fichier et j'aimerai pouvoir ré
Pour résumer, la macro suivante était présente dans le fichier Suivi et j'aimerai pouvoir l'intégrer dans un onglet de mon Report en allant piocher dans mon Suivi
fallait peut être le dire AVANT.
Un bénévole n'est pas taillable et corvéable à merci
--
Pour résumer, la macro suivante était présente dans le fichier Suivi et j'aimerai pouvoir l'intégrer dans un onglet de mon Report en allant piocher dans mon Suivi
fallait peut être le dire AVANT.
Un bénévole n'est pas taillable et corvéable à merci
--