Ajouter donnée colonne créée par vba

lutha · 20 Février 2014

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 · 20 Février 2014

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

Bonjour,

peut être comme ceci :

Code:

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

bonne journée
@+

lutha · 20 Février 2014

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 · 20 Février 2014

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 · 20 Février 2014

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

Bonjour et bienvenue sur le forum,

Peut-être que

Code:

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 · 20 Février 2014

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

Re,

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

Code:

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

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

Code:

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

Edition : bonjour Hasco

lutha · 20 Février 2014

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 ! =)

Ajouter donnée colonne créée par vba

lutha

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

lutha

XLDnaute Nouveau

lutha

XLDnaute Nouveau

Guest

Guest

Pierrot93

XLDnaute Barbatruc

lutha

XLDnaute Nouveau

Discussions similaires