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

FICHIER CSV

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

Ailleurs63

Guest
Bonjour à tous.
Si je fais appel à vous c'est que j'ai un soucis : j'ai un fichier CSV qui contient environ 4000 contacts.
Hors, pour une partie des contacts, l'adresse e-mail n'est pas dans la colonne EMAIL mais dans la colonne TELEPHONE.
Je cherche donc une solution pour contrôler la présence d'une adresse dans la colonne MAIL et en cas de cellule vide ou adresse sans @ remplacer par le contenu de la cellule de TELEPHONE. Par avance merci !
 
Trier par date Trier par votes
Bonjour ailleur et bienvenue sur XLD 🙂

Sans fichier, difficile de t'aider. De plus tu ne dis pas dans quel colonne (A B C D etc.) les données se trouvent. Sinon faire un test avec ceci à mettre dans le module de la feuille.

VB: 
Private Sub Worksheet_Change(ByVal R As Range)
    Application.EnableEvents = False
    'A remplacer par la colonne des adresses mail
    If Not Intersect(R, Columns("D:D")) Is Nothing Then

        If R.Offset(0, 0) = vbNullString Then
            'ici 3 = colonne G - à remplacer par la colonne des téléphones
            R.Offset(0, 3).Copy R.Offset(, 0)
            R.Offset(0, 3).ClearContents
        End If
    End If

    Application.EnableEvents = True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Lone-wolf à dit:
Bonjour ailleur et bienvenue sur XLD 🙂

Sans fichier, difficile de t'aider. De plus tu ne dis pas dans quel colonne (A B C D etc.) les données se trouvent.
Cliquez pour agrandir...
Bonjour. J'ai peut être, par méconnaissance, posté au mauvais endroit. Le pb ne vient pas de mon fichier CSV lui -même.
Donc un peu plus de détails : Je souhaite contrôler la présence d'une adresse email dans la colonne adresse email et en cas d'absence, remplacer la valeur par l'adresse email de la colonne téléphone 1. Merci !
 
Vote positif 0 Vote négatif
Bonsoir le fil, le forum

Une solution testée sous XL 2013
(en me basant sur l'image du message#3)
VB: 
Sub a()
Dim c As Range
For Each c In Range("C:C:D:D").SpecialCells(xlCellTypeConstants, 2)
If InStr(c, "@") > 0 Then
c.Cut Cells(c.Row, "B")
End If
Application.CutCopyMode = False
Next
End Sub

NB:
@Ailleurs63
Désolé de ne pas l'avoir posté deux heures plutôt
Mais désormais tu as une superbe dextérité digitale 😉
 
Vote positif 0 Vote négatif
Re

Non mais ce n'est pas forcément grave 😉
Il suffit d'ouvrir le CSV dans Excel, d’exécuter la macro puis d'enregistrer les modifs.
On peut aussi peaufiner (il y a déjà tout cela en stock sur XLD)
1) La macro ouvre une boite de dialogue pour parcourir une arboresence à la recherche du CSV
2) L'utilisateur sélectionne le CSV, la macro l'ouvre (ou le copie dans une feuille temporaire du classeur contenant le code VBA)
3) La macro traite les données en mettant les mails dans la bonne colonne.
4) La macro enregistre les modifs dans un nouveau CSV (si on veut être prudent) ou dans un nouveau classeur Excel d'une seule feuille.
(le tout de manière transparente pour l'utilisateur à partir de la sélection du CSV dans la boite de dialogue Ouvrir)

Tous ces points (1,2, 3 et 4) dorment dans la poussière des archives du forum. 😉

NB: J'allais justement te faire la remarque 😉 (lol)
Message 1
Ailleurs63 à dit:
Bonjour à tous.
j'ai un fichier CSV qui contient environ 4000 contacts.
Cliquez pour agrandir...
Message 2
Lone-wolf à dit:
Bonjour ailleur et bienvenue sur XLD 🙂
Sinon faire un test avec ceci à mettre dans le module de la feuille.
Cliquez pour agrandir...
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

B
  • Résolu(e)
Microsoft 365 Valeurs plages de cellules
Réponses
2
Affichages
165
BOILEAU
B
L
  • Question Question
XL 2013 VBA fichier CSV
2
Réponses
19
Affichages
675
lepiouf
L
  • Question Question
Microsoft 365 Macro vba envoi par mail
Réponses
9
Affichages
217
Nain porte quoi
N
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
739
job75
Z
  • Question Question
Microsoft 365 Besoin d'aide liste de noms
2
Réponses
18
Affichages
359
zebrano
Z
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
969
TooFatBoy
D
  • Question Question
Microsoft 365 TCD et format date
Réponses
7
Affichages
357
Cousinhub
W
  • Résolu(e)
XL 2019 Envoi de mails avec l'adresse secondaire et non l'adresse principale d'Outlook
2
Réponses
17
Affichages
576
TooFatBoy
N
  • Résolu(e)
Microsoft 365 Optimisation tableau avec adresse mail et numéro de téléphone (débutant)
Réponses
4
Affichages
276
JHA
J
J
  • Résolu(e)
XL 2013 Tri de données depuis un CSV
Réponses
5
Affichages
348
dysorthographie
S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
326
safranien
S
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
378
juju91
J
M
  • Question Question
Power Query Convertir un fichier Contacts Gmail et fichier Excel
Réponses
13
Affichages
1 K
nat54
D
  • Résolu(e)
Microsoft 365 Formules adjacentes après un import ne suivent pas
2 3 4
Réponses
45
Affichages
5 K
Dand87
D
  • Résolu(e)
XL 2021 Récupérer l'adresse d'un résultat d'une cellule cible.
Réponses
9
Affichages
236
PMG
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
659
nat54
D
  • Résolu(e)
Microsoft 365 Validation de données sous condition
Réponses
8
Affichages
411
drop91
D
N
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
980
TooFatBoy
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
649
Phil69970
V
  • Question Question
XL 2016 ou 2019 - fichier recensant les congés, tickets resto et heures supplémentaires
Réponses
0
Affichages
202
vivi21
V
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…