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

XL 2016 compléter tableau

Créer une discussion

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
E

Elevenul

XLDnaute Nouveau
Bonjour le Forum,

je viens vers vous pour un coup de pouce sur une feuille excel.

En colonne BC la valeur de la cellule est soit "Oui" soit "Non".
Si la valeur est "Oui" alors si colonne S (Etat) est = à "Couple" lire en I (Conjoint) et aller sur la ligne du Conjoint et en BC du Conjoint à la place de "Non" mettre "Oui"
Ainsi sur toute la feuille

Merci de votre aide

Ci joint le fichier suivi allégé
 

Pièces jointes

Solution
Bonsoir,

Puisque j'ai commencé, je publie la macro.

nota : vous avez sans doute des incohérences dans votre fichier. On trouve un conjoint AGU Bernard mais dans les colonnes Nom & Prénom, on ne trouve qu'un AGU Bernard Romain.

Or AGU Bernard est différent de AGU Bernard Romain. Il se peut d'ailleurs qu'une autre personne puisse s'appeler AGU Bernard tout simplement ou AGU Bernard Roland. Vous avez là des sources d'erreur indétectable si on n'est pas précis.
Trier par date Trier par votes
Bonjour à tous,

Par formule tu ne pourras pas changer ce qui est mis en "BC dans "BC", il faut passer par le VBA.
Par contre en "BD2" à essayer.
VB: 
=SI(ET(BC2="non";OU(S2="Couple";S2="Conjoint"));"oui";BC2)

JHA
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir JHA,
La condition première est en colonne BC Si la valeur est "Oui" alors si colonne S (Etat) est = à "Couple" lire en I (Conjoint) et aller sur la ligne du Conjoint et en BC du Conjoint à la place de "Non" mettre "Oui"

mais si BC est "Non" on ne traite pas

merci de ton regard
 
Vote positif 0 Vote négatif
Bonsoir Elevenul, JHA,

Bien sûr puisqu'il y a des entrées manuelles en colonne BC on ne peut pas y mettre des formules.

Mais on peut mettre en colonne BD les corrections à apporter avec cette formule en BD2 :
Code: 
=REPT("OUI";(S2="Conjoint")*(BC2<>"Oui")*SIERREUR(INDEX(BC:BC;EQUIV(G2&" "&GAUCHE(H2)&"*";I:I;0))="Oui";0))
A tirer vers le bas, voyez le fichier joint.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir JHA, job75,

Ok cela fonctionne je vais essayer une macro pour remplacer les Non par les Oui car en BD il y a des données je l'ai décalé a la fin de la ligne et je faire une boucle pour changer dans BC.

Merci de vos réponses.
 
Vote positif 0 Vote négatif
Bonsoir,

Puisque j'ai commencé, je publie la macro.

nota : vous avez sans doute des incohérences dans votre fichier. On trouve un conjoint AGU Bernard mais dans les colonnes Nom & Prénom, on ne trouve qu'un AGU Bernard Romain.

Or AGU Bernard est différent de AGU Bernard Romain. Il se peut d'ailleurs qu'une autre personne puisse s'appeler AGU Bernard tout simplement ou AGU Bernard Roland. Vous avez là des sources d'erreur indétectable si on n'est pas précis.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Solution
Hello mapomme,

Oui pourquoi pas, du VBA avec cette macro du fichier (2) :
VB: 
Option Compare Text 'la casse est ignorée

Sub Correction()
Dim tablo, i&, cherche$, lig As Variant
With Sheets("suivi").[A1].CurrentRegion
    tablo = .Resize(, 55) 'matrice, plus rapide
    For i = 2 To UBound(tablo)
        If tablo(i, 19) = "Conjoint" And tablo(i, 55) <> "Oui" Then
            cherche = tablo(i, 7) & " " & Left(tablo(i, 8), InStr(tablo(i, 8) & " ", " ") - 1) 'nom + 1er prénom
            lig = Application.Match(cherche & "*", .Columns(9), 0)
            If IsNumeric(lig) Then If tablo(lig, 55) = "Oui" Then tablo(i, 55) = "Oui"
        End If
    Next
    .Columns(55) = Application.Index(tablo, , 55) 'restitution
End With
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour Elevenul, le forum,

S'il y a un très grand nombre de lignes Application.Match prendra pas mal de temps.

Pour aller vite il faut utiliser le Dictionary :
VB: 
Option Compare Text 'la casse est ignorée

Sub Correction()
Dim tablo, d As Object, i&, s, cherche$
With Sheets("suivi").[A1].CurrentRegion
    tablo = .Resize(, 55) 'matrice, plus rapide
    Set d = CreateObject("Scripting.Dictionary")
    d.CompareMode = vbTextCompare 'la casse est ignorée
    '---liste des noms + 1ers prénoms de la colonne I---
    For i = 2 To UBound(tablo)
        If tablo(i, 9) <> "" Then
            s = Split(tablo(i, 9) & " ")
            d(s(0) & " " & s(1)) = tablo(i, 55) = "Oui" 'mémorise True/False
        End If
    Next
    '---correction en colonne BC---
    For i = 2 To UBound(tablo)
        If tablo(i, 19) = "Conjoint" And tablo(i, 55) <> "Oui" Then
            cherche = tablo(i, 7) & " " & Left(tablo(i, 8), InStr(tablo(i, 8) & " ", " ") - 1) 'nom + 1er prénom
            If d(cherche) Then tablo(i, 55) = "Oui"
        End If
    Next
    .Columns(55) = Application.Index(tablo, , 55) 'restitution
End With
End Sub
Fichier (3) testé sur 81 000 lignes, l'exécution se fait en 0,9 seconde.

A+
 

Pièces jointes

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

P
  • Question Question
XL 2019 Bessoin d'aide pour photo.
Réponses
2
Affichages
149
wDog66
  • Résolu(e)
Microsoft 365 Modifier un code copie donnée chaque feuil séparément
Réponses
11
Affichages
311
ExcelDow
A
  • Question Question
XL 2016 Mise en forme conditionnelle et valeur égale à 0...
Réponses
5
Affichages
312
sylvanu
R
  • Résolu(e)
XL 2021 NB.SI dans la colonne n°3
Réponses
4
Affichages
165
rpatty85
R
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
645
AtTheOne
M
  • Question Question
Microsoft 365 Erreur avec une formule UNIQUE
Réponses
9
Affichages
444
TooFatBoy
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
709
desto
D
L
  • Question Question
Microsoft 365 renvoyer le dernier mot de la colonne A
Réponses
5
Affichages
194
job75
  • Résolu(e)
XL 2021 Mise en place d'une formule pour completer un un tableau par action en fonction d'un nom.
Réponses
5
Affichages
282
Hecatonchire
H
  • Question Question
Microsoft 365 Recherche info pour remplir fiche
Réponses
4
Affichages
282
pompaero
S
  • Question Question
Microsoft 365 Trouver les correspondances de mots entre deux listes
2
Réponses
26
Affichages
734
Sylvaing
S
D
  • Question Question
Microsoft 365 Filtrer sur la feuille 1 et que ce même filtre s'applique sur le feuil 2
Réponses
5
Affichages
252
desmonts
D
B
  • Question Question
XL 2021 [Résolu] Calculer une valeur tenant compte de cellules de valeur '0'
Réponses
5
Affichages
291
Bibinaire
B
S
  • Résolu(e)
Autres Problème avec sélection d'une cellule puis glisser
Réponses
2
Affichages
192
SPARKLETOF
S
T
  • Résolu(e)
XL 2021 Delta différence , facturé sur plusisuers mois
Réponses
8
Affichages
499
TooFatBoy
J
  • Résolu(e)
Microsoft 365 afficher image selon valeur cellule
Réponses
2
Affichages
236
juju91
J
  • Résolu(e)
Microsoft 365 Recherche sur plusieurs Feuilles
2
Réponses
18
Affichages
500
lcouaci
G
  • Question Question
Microsoft 365 Lenteur chargement ListView
2 3
Réponses
38
Affichages
1 K
GClaire
G
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
376
tuti
T
O
  • Question Question
XL 2021 Jalon de projet
Réponses
5
Affichages
167
olibubu16
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…