Mettre de condition dans une macro

Signaler
Messages postés
2
Date d'inscription
lundi 8 février 2021
Statut
Membre
Dernière intervention
19 février 2021
-
Messages postés
2398
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
11 avril 2021
-
Bonjour à tous,
je reviens vers vous pour un problème,
en fait j'extrait des données dans un serveur, ça varie entre la colonne A et AE
Chaque colonne a des entêtes,
ex : colonne A s'intitule Date, colonne B (Age), colonne C(transport) et ainsi de suite
mon serveur n'est pas stable, il peut se trouver demain quand je viendrai extraire les données, la colonne A qui était Date se retrouve à la 10ème colonne, celle qui était à la 4em colonne peut se retrouver à la première colonne
bref ça bouge à tout moment..
j'aimerai une macro qui garde mes colonnes A, B,C du départ (même si les colonnes bougent dans la prochaine extraction, que ça ne pousse pas faucher mes analyses)
best regards

extrait de ma macro avec copier coller qui ne satisfait pas mon problème

Sub Donne()
'
' Donne Macro
'

'
    Range("N21").Select
    Sheets.Add After:=ActiveSheet
    Sheets("SERVICERRD (16)").Select
    Columns("A:A").Select
    Selection.Copy
    Sheets("Feuil1").Select
    ActiveSheet.Paste
    Sheets("SERVICERRD (16)").Select
    Columns("B:B").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil1").Select
    Columns("B:B").Select
    ActiveSheet.Paste
    Sheets("SERVICERRD (16)").Select
    Columns("J:J").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil1").Select
    Columns("C:C").Select
    ActiveSheet.Paste
    Sheets("SERVICERRD (16)").Select
    Columns("L:L").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil1").Select
    Columns("D:D").Select
    ActiveSheet.Paste
    Sheets("SERVICERRD (16)").Select
    Columns("Q:Q").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil1").Select
    Columns("E:E").Select
    ActiveSheet.Paste
    Sheets("SERVICERRD (16)").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    Columns("U:U").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil1").Select
    Columns("F:F").Select
    ActiveSheet.Paste
    Range("J10").Select
End Sub

3 réponses

Messages postés
2398
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
11 avril 2021
130
Bonjour
Pour poster du code prière de suivre ce tuto : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Quant à ton serveur il a un gros problème à mon avis .
Regarde si il n'y a pas un moyen d'accéder à une colonne d'après le nom de cette colonne et non la lettre de cette colonne .
une solution peut-être ici : https://forum.excel-pratique.com/excel/selectionner-colonne-a-partir-de-son-nom-t88980.html

Messages postés
2
Date d'inscription
lundi 8 février 2021
Statut
Membre
Dernière intervention
19 février 2021

Bonjour,
merci pour ton support
mais là il n'y a qu'une colonne, mais je chercher x noms de colonnes
cordialement
Messages postés
2398
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
11 avril 2021
130
Bonjour
Si on trouve une colonne on devrait trouver les autres .
C'est à toi d'adapter ce code