Macro exel

[piyou23]

Bonjour a tous,

je suis actuellement en train de réaliser une macro assez longue.
Cependant je bloque sur une étape. Cette macro utilise un fichier excel contenant des informations.
Ma macro principale ordonne mes informations et créer des graphes, puis enregistre ce nouveau fichier.
Ce nouveau fichier sera celui utilisé par la macro ensuite
J'aimerais dans ma macro, créer des nouvelles colonnes, mais seulement une seul fois.
Juste rajouter des collones a une seul reprise, aprés on ne n'en tient plus compte.

Je vous remercie pour vos réponses.

 

[Compte Supprimé 979]

Re : Macro exel

Bonjour Piyou23 et bienvenue sur ce forum

Si tu souhaites créer des colonnes une seule fois, il suffit de tester si ces colonnes existent 😕

A+

 

[piyou23]

Re : Macro exel

Merci BrunoM45 !

J'ai pensé faire une boucle pour regarder si elles sont présentent en effet.
If elles sont pas présentent
alors créer collone
If elle sont présentent
recopier les anciens éléments a l'intérieur.
END

Qu'en pensez vous ?

Merci !

 

[Compte Supprimé 979]

Re : Macro exel

Re,

Oui c'est à peu près ça, il faut tester si le texte d'entête de colonne existe à l'endroit ou il devrait être
Sans faire 2 tests puisque si ce n'est pas un cas, c'est forcément l'autre 😉

If Range(A1) <> "TexteEntêteColonne1" Then
' Pas présente alors je copie et insère la colonne
Else
' Présente, alors je copie/colle les valeurs
End IF

A+

 

[piyou23]

Re : Macro exel

Merci BrunoM45 !

J'essaye cette solution tout de suite.
Si je ne parviens pas à m'écrire je reviens vous demandez un peux d'aide 😉

Merci !

 

[piyou23]

Re : Macro exel

Une petite question :

Dans mon code, qu'elle est la manière de spécifié les colonnes recherchés ?
Car elles ne se trouveront peut être pas tout le temps au même endroit.

Merci de vos réponses


If Range(A1) <> "TexteEntêteColonne1" Then
Columns("BE:BI").Select
Selection.Copy
Columns("BE:BI").Select
Selection.Copy
Else
Cells.Select
Selection.Delete Shift:=xlUp
End If

End Sub