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

Problème avec une fonction COMPARER et REMPLACER

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Banosjo
  • 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 !

S'inscrire
B

Banosjo

XLDnaute Junior
Bonjour,

J'aurais besoin d'un petit coup de pouce avec une macro. J'ai d'un côté la liste de l'ensemble des fichiers et de l'autre, la liste de certains de ces fichiers (avec des noms de fichiers partiels) qui ont été analysés. Je souhaite intégrer les valeurs calculées des fichiers analysés aux valeurs calculées de l'ensemble des fichiers.

J'arrive malheureusement pas à aligner les bons fichiers et à transposer correctement les donneés.

Pourriez-vous m'aider ? Je joins un fichier d'exemple avec la macro.

Merci d'avance !!
 

Pièces jointes

Trier par date Trier par votes
Re : Problème avec une fonction COMPARER et REMPLACER

Bonjour et bienvenue sur le forum,

Une proposition par formule :

En B4 et à copier vers le bas et vers la droite :
Code: 
=SI(NB.SI($I$4:$I$7;GAUCHE($A4;11));RECHERCHEV(GAUCHE($A4;11);$I$4:J$7;COLONNE();0);"")
 
Vote positif 0 Vote négatif
Re : Problème avec une fonction COMPARER et REMPLACER

Bonjour à tous,

par macro:
Code: 
Sub Comparer()

For i = 4 To Range("A65535").End(xlUp).Row
For j = 4 To Range("I65535").End(xlUp).Row
If Left(Cells(i, 1), 11) = Cells(j, 9) Then
Range(Cells(j, 10), Cells(j, 15)).Select
Selection.Copy
Range("B" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Next j
Next i
End Sub
voir fichier joint

à+
Philippe
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Problème avec une fonction COMPARER et REMPLACER

Bonjour à tous, salut Hoerwind, Philippe,
Code: 
Sub test()
    For i = 4 To Range("A" & Rows.Count).End(xlUp).Row
        For j = 4 To Range("I" & Rows.Count).End(xlUp).Row
            If Left(Cells(i, 1), 11) = Cells(j, 9) Then
                Range(Cells(j, 10), Cells(j, 15)).Copy Destination:=Range(Cells(i, 2), (Cells(i, 7)))
            End If
        Next j
    Next i
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Problème avec une fonction COMPARER et REMPLACER

Super, merci !! Je me cassais la tête sur ce problème depuis hier 🙂

Précision :

Quand dans mon Ensemble de fichiers je n'ai que 1 fichier, il apparaît sous la forme
8098654_EN_AS_Mgr_Print_Centre.doc (sans le numéro)
et le fichier analysé apparaît sous la forme
8098654

Que devais-je faire pour prévoir cette éventualité ? Avec le "11" de "If Left(Cells(i, 1), 11) = Cells(j, 9) Then", ça ne fonctionne pas ..

Merci de m'éclairer !
 
Vote positif 0 Vote négatif
Re : Problème avec une fonction COMPARER et REMPLACER

Re,

dans ce cas il suffit de remplacer 11 par 7 (8098654 contient 7 caractères)
ou alors il faut déterminer la position du second tiret_bas

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Problème avec une fonction COMPARER et REMPLACER

Merci Philippe,

Mais c'est que je dois prévoir les deux possibilités dans la même macro ..

Si j'ai 1 fichier dans mon Ensemble de fichiers alors considérer seulement les 7 premiers caractères, autrement considérer les 11 premier caractères .. Je ne suis pas sûr de la façon d'introduire cette condition dans le code .. 🙁

Code :
Sub test()
For i = 4 To Range("A" & Rows.Count).End(xlUp).Row
For j = 4 To Range("I" & Rows.Count).End(xlUp).Row
If Left(Cells(i, 1), 11) = Cells(j, 9) Then
Range(Cells(j, 10), Cells(j, 15)).Copy Destination:=Range(Cells(i, 2), (Cells(i, 7)))
End If
Next j
Next i
End Sub

Merci de votre aide !
 
Vote positif 0 Vote négatif
Re : Problème avec une fonction COMPARER et REMPLACER

Re

J'ai finalement trouvé !!

If ActiveSheet.Cells(5, 1).Value <> "" Then
For i = 4 To Range("A" & Rows.Count).End(xlUp).Row
For j = 4 To Range("I" & Rows.Count).End(xlUp).Row
If Left(Cells(i, 1), 11) = Cells(j, 9) Then
ActiveSheet.Range(Cells(j, 10), Cells(j, 15)).Copy
ActiveSheet.Range(Cells(i, 2), (Cells(i, 7))).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Next j
Next i
ElseIf ActiveSheet.Cells(4, 9) <> "" Then
ActiveSheet.Range(Cells(4, 10), Cells(4, 15)).Copy
ActiveSheet.Range(Cells(4, 2), (Cells(4, 7))).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If

Merci beaucoup de votre aide !!
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

B
  • Question Question
XL 2016 problèmes de formules et liste déroulantes avec le planning
Réponses
1
Affichages
142
sylvanu
C
  • Résolu(e)
Power Query Transposer plusieurs Tables avec Power Query
Réponses
4
Affichages
240
chermiti
C
Y
  • Résolu(e)
Microsoft 365 Rechercher et remplacer éditer une procedure
Réponses
8
Affichages
352
YGU1
Y
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
389
AlineJ
A
L
  • Résolu(e)
Power Query Problème de fusion de données entre deux fichiers Excel sous Power Query
Réponses
8
Affichages
1 K
chris
W
  • Résolu(e)
XL 2016 Gestion de liste transposée dans une autre feuille avec décalage d'une colonne et exclusion de certains éléments
Réponses
9
Affichages
631
Webperegrino
W
Y
  • Question Question
XL 2016 Création d'un publipostage avec PJ PDF sur Outlook
Réponses
2
Affichages
612
Phil69970
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
S
  • Résolu(e)
Microsoft 365 Conserver lien hypertexte avec une fonction RechercheV
2
Réponses
19
Affichages
2 K
job75
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
650
JJ69
J
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
713
Phil69970
GUIDE COMPLET : Créer un projet Google Cloud OAuth pour une application Excel/VBA
Réponses
0
Affichages
238
dysorthographie
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
G
  • Question Question
XL 2013 Problème de priorité dans une formule de SI et STXT imbriquée
Réponses
8
Affichages
587
Gmndrt
G
M
  • Question Question
XL 2010 Récupération de données et les transformer avec Power Query ?
Réponses
3
Affichages
799
DJunqueira
D
  • Résolu(e)
XL 2013 Problème facturation avec les centimes entre résultat excel (formules) et un calcul à la calculatrice.
Réponses
6
Affichages
1 K
CGU2022.
C
  • Résolu(e)
XL 2016 Problème de TCD avec Champ Date
Réponses
11
Affichages
2 K
chris
J
  • Résolu(e)
XL 2021 Créer une formule avec nom d'onglet
Réponses
8
Affichages
510
Julieneymery
J
L
  • Résolu(e)
Microsoft 365 Création d'un fichier avec plusieurs feuilles ou des liaisons?
2
Réponses
29
Affichages
2 K
laurabachau
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…