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

VBA Remplacer/suppression multiple

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

Another

XLDnaute Nouveau
Voilà un moment que je me creuse la tête pour mon problème, mais rien n'y fait et j'espère que vous allez pouvoir m'aider.

J'ai un document avec trois colonnes (pour le moment), en colonne A j'ai des noms de sociétés, en colonne B les communes associées aux sociétés et en colonne C des noms de personnes associées aux sociétés.

Je gère l'ensemble avec une Userform qui me permet de rentrer de nouvelles données et/ou de les modifier/supprimer.
Mon problème et de pouvoir modifier/supprimer une société (avec bien sûr la communes qui lui est associée) sachant que je vais la retrouver plusieurs fois dans la colonne A puisque plusieurs personnes (il peut y avoir des doublons de noms de personnes, mais elles sont bien différentes) y sont associées (Ex : je supprime une société >> la commune et les personnes associées aussi)(Ex : je modifie le nom d'une société >> la commune et les personnes associées ne bouge pas)

Merci d'avance pour votre aide
 

Pièces jointes

Trier par date Trier par votes
Re : VBA Remplacer/suppression multiple

Re,
pour les suppressions ça fonction, j'aurai préféré pouvoir le faire sans sélectionner les cellules
Cliquez pour agrandir...
Il suffit de remplacer Select par Delete

Par contre je ne vois pas trop en ce qui concerne les modifications, peut-être une astuce en plus ?
Cliquez pour agrandir...
Il suffit de faire les modifs dans la boucle Do...Loop, c représente la cellule qui contient le nom de la société, en utilisant Offset tu décales, par exemple c.Offset(0,1) donne la commune et c.Offset(0,2) le contact.

A+
 
Vote positif 0 Vote négatif
Re : VBA Remplacer/suppression multiple

Parfait, impeccable, super !!!
J'arrive à faire exactement ce que je cherchais à faire alors bravo !
Merci Hippolite, Bebere, Stefan et Fo_rum pour m'avoir apporté votre aide 😀
 

Pièces jointes

Vote positif 0 Vote négatif
Re : VBA Remplacer/suppression multiple

Par contre j'ai un petit soucis avec cette ligne là
Loop While Not c Is Nothing And c.Address <> firstAddress
et plus particulièrement avec c.Address

Pour une première modification tout va bien, mais si on veut en faire une deuxième ça bloque la dessus pour sortir de la boucle.
Je précise que je ne comprends pas tout à vba donc c'est peut-être tout bête, mais je ne vois pas.
 
Vote positif 0 Vote négatif
Re : VBA Remplacer/suppression multiple

Re,
Il ya une ligne à ajouter dans Sub CBvalidS2_Click()
Code: 
                Set c = .FindNext(c)
                If c Is Nothing Then Exit Do
            Loop While Not c Is Nothing And c.Address <> firstAddress
en effet si on modifie le nom, à la fin de la boucle quand toutes les modifs auront été effectuées,on va se retrouver avec c qui sera nothing (l'ancien nom ayant disparu) et il faut sortir de la boucle avant que c.Address ne fasse planter.
Tu peux enlever tous les "groupe" qui ne servent pas dans cette routine
Je n'ai pas eu le temps d'approfondir ton code pour voir s'il y a une façon plus propre de procéder.
A+
 
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

G
  • Question Question
Microsoft 365 Trier les noms par dates dans Excel : gérer les doublons pour des dates identiques
Réponses
6
Affichages
245
C'est papy Mougeot !
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
269
picc
P
L
  • Résolu(e)
Microsoft 365 Input Duplication feuille en masse
2
Réponses
20
Affichages
1 K
LuanaDDC
L
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
3 K
crocrocro
C
C
  • Question Question
Microsoft 365 Avoir un calendrier d'équipe du type Outlook, mais sur Excel pour bénéficier des champs de listes
Réponses
1
Affichages
565
ChTi160
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
562
jeff1494
D
  • Question Question
Microsoft 365 Calculer et actualiser une moyenne de délais de traitement
Réponses
3
Affichages
356
goube
A
  • Résolu(e)
XL 2010 VBA Reporter et sommer des valeurs en fonction d'une référence et d'un n° de semaine
2
Réponses
20
Affichages
2 K
arno1234
A
J
  • Résolu(e)
Microsoft 365 [RESOLU] VBA boucle, insertion plusieurs lignes, exécution formules, suppression sur si
Réponses
5
Affichages
560
Phil69970
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
316
Staple1600
B
  • Question Question
Microsoft 365 Requête ADODB sur une colonne
Réponses
7
Affichages
408
fanch55
A
  • Question Question
Microsoft 365 recherche multicritère de la valeur suivante
2
Réponses
29
Affichages
1 K
alexga78
A
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
371
sousou
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
272
ManuEven
M
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
225
fanch55
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
2 K
olivier1984
O
N
  • Question Question
XL 2021 Partage de fichier avec mot de passe
Réponses
6
Affichages
693
nike780
N
  • Question Question
XL 2013 Comptabiliser cellules répondant à des conditions "RESOLU"
Réponses
3
Affichages
529
oguruma
B
  • Question Question
XL 2016 VBA et valeur cible sur cellules différentes
Réponses
3
Affichages
304
Lolote83
L
C
  • Résolu(e)
XL 2021 Inventaire automatique
Réponses
14
Affichages
865
Constantin
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…