Insertion conditionnelle de colonnes

[Newbe]

Bonjour le Forum,
J'ai commencé à programmé une macro (avec votre aide) et je bloque sur un petit problème.
La procédure "Ajout" doit ajouter une colonne en plus (le resultat de la recherche) au range SEL si la recherche aboutit. Si la recherche n'aboutit pas je dois rajouter à SEL une colonne vide.

Voilà ce que j'ai commencé, j'ai mis en rouge les points sur lesquels je ne connais pas la syntaxe... Si quelqu'un peut m'orienter...🙂

Sub Ajout(donnée As String)
Dim i As Integer
Dim u As Range, col As Range

Set u = ActiveWorkbook.Sheets(1).Range("A1:Z1").Find(what:=donnée, lookat:=xlPart)
If Not u Is Nothing Then i = u.Column
col = Column(i)
SEL.Add col

Else
SEL.Add emptycolumn

End Sub

 

[Pierrot93]

Re : Insertion conditionnelle de colonnes

Bonjour,

pour insérer une colonne, utilise la méthode "insert", exemple ci-dessous insére une colonne devant la colonne C :

Columns(3).Insert

bonne journée
@+

 

[Newbe]

Re : Insertion conditionnelle de colonnes

Mais du coup chez moi pour ajouter la colonne au range SEL ça donnerait un truc du genre:
SEL.Insert col
c'est bien ça?
Et pour une colonne vide c'est bien EmptyColumn?

 

[Pierrot93]

Re : Insertion conditionnelle de colonnes

Re,

A quoi correspond SEL ? si c'est une variable, je ne vois pas quelle soit initialisée....

 

[job75]

Re : Insertion conditionnelle de colonnes

Bonjour Newbe,

Salut Pierrot, je vois que, comme moi, l'énoncé du problème te laisse pensif, ce n'est pas clair.

Mais essayons toujours ceci :

Sub Ajout(donnee As String)
Dim u As Range
Set u = Sheets(1).Range("A1:Z1").Find(donnee, LookIn:=xlFormulas, LookAt:=xlPart)
ActiveCell.EntireColumn.Insert 'insert une colonne
If Not u Is Nothing Then u.EntireColumn.Copy ActiveCell.EntireColumn 'copie la colonne trouvée sur la colonne insérée
End Sub

Bien sûr cette macro ne peut être appelée que dans une autre macro avec une instruction du genre :

Call Ajout("toto")

A+

 

[Newbe]

Re : Insertion conditionnelle de colonnes

Oui effectivement Job75, je viens de me rendre compte que je n'utilise pas du tout le bon objet.
En fait ce qu'il faudrait que j'arrive a faire c'est de rajouter la colonne à une sélection l'idée est d'utiliser plusieurs fois la procédure Ajout dans la macro principale pour sélectionner plusieurs colonnes distinctes et ensuite copier la sélection pour la coller dans une autre feuille. Je sais pas si ça vous parait plus clair. Voici la macro principale, elle n'est pas encore complète...

Sub Ajout(donnée As String)
Dim i As Integer
Dim u As Range, col As Range

Set u = ActiveWorkbook.Sheets(1).Range("A1:Z1").Find(what:=donnée, lookat:=xlPart)
If Not u Is Nothing Then i = u.Column
col = Column(i)
SEL.Add col

Else
SEL.Add emptycolumn

End Sub



Sub Tableau()

Dim A As String, B As String, C As String, D As String, E As String, F As String, G As String, H As String
Dim ActB As Boolean, ActC As Boolean, ActD As Boolean, ActE As Boolean, ActF As Boolean, ActG As Boolean, ActH As Boolean
Dim i As Integer, x As Integer
Dim Chemin As Variant, fs As Variant
Dim nomfichier As String, Fichierlu As String, Fenêtrelu As String

Chemin = ThisWorkbook.Path & "\Données\"
nomfichier = ActiveWorkbook.Name
A = "ISIN"
B = "LIB"
C = "%"
D = "DEV"
E = "PAYS"
F = "ZONE"
G = "SecteurN1"
H = "SecteurN2"

Set fs = Application.FileSearch
With fs
.LookIn = Chemin
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then


For i = 1 To .FoundFiles.Count
Fichierlu = .FoundFiles(i)
'fenêtrelue = ActiveWorkbook.Name

x = recherche(A, Fichierlu) 'Fonction qui ouvre le classeur et rend le numéro de la colonne contenant A sous forme d'entier

If x <> 0 Then

Cells(1, x).Column.Select

If ActB = True Then Ajout (B)
End If

If ActC = True Then Ajout (C)
End If

If ActD = True Then Ajout (D)
End If

If ActE = True Then Ajout (E)
End If

If ActF = True Then Ajout (F)
End If

If ActG = True Then Ajout (G)
End If

If ActH = True Then Ajout (H)
End If

Selection.Copy
Windows(nomfichier).Activate
Range("a65536").Select
Selection.End(x1Up).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste 'On colle la selection à la suite du reste dans le tableau principal
Else
ActiveSheet.Range("A" & i) = "pas trouvé, dans " & Fichierlu & _
". Veuillez formater ce fichier de nouveau."

End If
Next i
End If
End With


End Sub

 

[job75]

Re : Insertion conditionnelle de colonnes

Re,

Bon, rideau, j'abandonne, mais Pierrot peut-être 🙂

A+

 

[Ubot303]

Re : Insertion conditionnelle de colonnes

Bonjour,

A mon tour de tenter qqch...

Pour connaître une syntaxe, tu peux utiliser l'enregistreur de macro (dans ta barre d'outil Visual Basic, tu as un point rouge d'enregistrement).
Tu lances l'enregistrement, tu effectues l'opération sous Excel et dans un module tu va retrouver la syntaxe de ce que tu viens de faire...

Avec cette solution, ajouter une colonne en E s'écrit :

Columns("E:E").Select
Selection.Insert Shift:=xlToRight

Cela insère une colonne vide... Après tu peux la remplir si la condition est vérifiée...

Sinon le mieux c'est d'envoyer un bout de fichier avec ce que tu souhaites, parce que vu ton code je doute qu'il faille le tourner ainsi...

 

[Newbe]

Re : Insertion conditionnelle de colonnes

Ce que j'aimerai faire simplement c'est rajouter à chaque fois une colonne de plus à ma selection. Je pense que c'est juste une synthaxe qu'il me manque...

 

[Newbe]

Re : Insertion conditionnelle de colonnes

Ce que je voudrais faire c'est simplement de rajouter à chaque fois une colonne à ma selection. Je pense que c'est juste une synthaxe qu'il me manque...

 

[Newbe]

Re : Insertion conditionnelle de colonnes

Ha oui j'avais pas pensé à faire ça... Merci je devrai reussir à me debrouillé ;-)

 

[Pierrot93]

Re : Insertion conditionnelle de colonnes

Re,

pour insérer une colonne devant la cellule trouvée :

Dim u As Range
Set u = ActiveWorkbook.Sheets(1).Range("A1:Z1").Find(what:=donnée, lookat:=xlPart)
If Not u Is Nothing Then
    Columns(u.Column).Insert
End If

 

[Ubot303]

Re : Insertion conditionnelle de colonnes

Pierrot : bien vu 🙂
Mais il vaut mieux apprendre à l'ours à pécher qu'a lui apporter tous les jours du poisson... 😀