Ajouter donnée colonne créée par vba

[lutha]

Bonjour,

Voilà mon problème, j'ai mis en code vba qui ajoute des colonnes fonction du nombre envoyé par une toupie.
Ce que je voudrais c'est que lorsque la colonne est créée il ajoute un mot dans dans la torisième ligne de cette colonne. Et ce sur chaque colonne créée.

Private Sub CommandButton1_Click()
If TextBox1 <> "" Then
If IsNumeric(TextBox1) Then
Range("Ab3").Resize(, TextBox1).EntireColumn.Insert Shift:=xlToRight
Range("Ab3").Resize(, TextBox1).EntireColumn.value
Activecells.value="Intérimaire"
End If
End If
Unload Me
End Sub


J'ai tenté de nommé mes colonnes créées, des les activer et sélectionner la cellule mais je n'arrive à la faire que sur la première colonne créée (si toupie renvoi un nchiffre >1)
Est-ce assez clair ? =)

je vous remercie d'avance pour votre aide !!

 

[Pierrot93]

Re : Ajouter donnée colonne créée par vba

Bonjour,

peut être comme ceci :

Range("Ab3").Resize(, TextBox1).value = "xxx"

bonne journée
@+

 

[lutha]

Re : Ajouter donnée colonne créée par vba

Oui cette solution marche mais le problème c'est que il me l'écrit sur toutes les lignes de la colonne. Mon but étant de l'écrire que sur une ligne.

Merci pour ta réponse aussi rapide !

 

[lutha]

Re : Ajouter donnée colonne créée par vba

Autant pour moi j'avais pas enlevé le "EntireColumn" !! Ta solution marche niquel !!

Je te remercie =D

 

[Guest]

Re : Ajouter donnée colonne créée par vba

Bonjour et bienvenue sur le forum,

Peut-être que

Private Sub CommandButton1_Click()
    If textbox1 <> "" Then
        If IsNumeric(textbox1) Then
           With Range("Ab3").Resize(, Val(textbox1))
                .EntireColumn.Insert Shift:=xlToRight
                .Offset(, Val(textbox1) * -1).Rows(3).Value = "intérimaire"
           End With
        End If
    End If
    Unload Me
End Sub

Si le *-1 ne donne pas les bonnes colonnes (gauche) alors enlever *-1

A+

[edit] coucou Pierrot🙂

 

[Pierrot93]

Re : Ajouter donnée colonne créée par vba

Re,

bah... ceci renvoie la valeur sur 5 colonnes uniquement de la ligne 3....

Range("Ab3").Resize(, 5).Value = "xxx"

peut être lieu d'utiliser un "offset" si tu ne veux âs écrire sur AB3, à voir... :

Range("Ab3").Offset(, 1).Resize(, 5).Value = "xxx"

Edition : bonjour Hasco🙂

 

[lutha]

Re : Ajouter donnée colonne créée par vba

La première solution marchait très bien enfait =) J'ai répondu trop vite :/
Merci pour votre aide ! =)