mettre de condition dans une macro

Question

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

vb95 · Answer

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

Ilsy_2021 · Answer

Bonjour,
merci pour ton support
mais là il n'y a qu'une colonne, mais je chercher x noms de colonnes
cordialement

vb95 · Answer

Bonjour
Si on trouve une colonne on devrait trouver les autres .
C'est à toi d'adapter ce code

Mettre de condition dans une macro

3 réponses

Votre réponse

Discussions similaires