Correction de code VBA

abtony · 7 Septembre 2010

Bonjour le forum,

je souhaite savoir si ce code est possible ?

Code:

Private Sub CommandButton1_Click()

ligne = ActiveSheet.Range("A65535").End(xlUp).Row + 1
col = ActiveSheet.Range("A") & ColumnCount + 1
For x = 1 To 18
     ActiveSheet.Cells(ligne, col).Value = Controls("textbox" & x).Value
Next x
End Sub

j'ai 18 textbox, une fois valider sur le bouton on insère le contenu dans les cellules de la colonne A a R, mais je suis pas sur que ca puisse fonctionner.

Je cherche depuis un moment, et j'ai une erreur a la ligne col =....

Pouvez vous me dire si c'est viable ou pas.

Merci d'avance

fhoest · 7 Septembre 2010

Re : Correction de code VBA

Bonjour abtony

abtony à dit:
Bonjour le forum,

je souhaite savoir si ce code est possible ?

Code:

Private Sub CommandButton1_Click() ligne = ActiveSheet.Range("A65535").End(xlUp).Row + 1 [COLOR="Red"]'col = ActiveSheet.Range("A") & ColumnCount + 1[/COLOR] col = ActiveSheet.Range("A" & ColumnCount + 1) For x = 1 To 18 ActiveSheet.Cells(ligne, col).Value = Controls("textbox" & x).Value Next x End Sub

j'ai 18 textbox, une fois valider sur le bouton on insère le contenu dans les cellules de la colonne A a R, mais je suis pas sur que ca puisse fonctionner.

Je cherche depuis un moment, et j'ai une erreur a la ligne col =....

Pouvez vous me dire si c'est viable ou pas.

Merci d'avance

cela ira mieux pour col

tototiti2008 · 7 Septembre 2010

Re : Correction de code VBA

Bonjour à tous,

ou alors ça ?

Code:

Private Sub CommandButton1_Click()
ligne = ActiveSheet.Range("A65535").End(xlUp).Row + 1
For x = 1 To 18
     ActiveSheet.Cells(ligne, x).Value = Controls("textbox" & x).Value
Next x
End Sub

abtony · 7 Septembre 2010

Re : Correction de code VBA

re, bonjour fhoest,

Merci pour ta réponse, ça passe avec ta modification.

Mais maintenant l'erreur se trouve sur cette ligne

Code:

ActiveSheet.Cells(ligne, col).Value = Controls("textbox" & x).Value

Je cherche simplement a minimiser le code d'insertion pour ne pas avoir ce type de code.

Code:

ligne = Sheets("Base de données").Range("A65535").End(xlUp).Row + 1
With Sheets("Base de données")
    .Cells(ligne, 1) = TextBox1.Text
    .Cells(ligne, 2) = TextBox2.Text
     .Cells(ligne, 3) = TextBox3.Text
     .Cells(ligne, 4) = ComboBox1.Text
     .Cells(ligne, 6) = TextBox5.Text
     .Cells(ligne, 6) = TextBox6.Text
End With

Merci beaucoup a te relire

ERIC S · 7 Septembre 2010

Re : Correction de code VBA

Bonjour

je pense quec'est dû à x=4

pour cette valeur c'est une combo box et non une textbox

peux-tu vérifier la valeur de x en erreur?

abtony · 7 Septembre 2010

Re : Correction de code VBA

Bonjour tototiti2008, ERIC S,

tototiti j'avais pas vu ton message, et pour dire ton code fonctionne nickel, très simple, très léger et rapide.

Merci a vous trois

A + sur un autre fil

jetted · 7 Septembre 2010

Re : Correction de code VBA

Code non teste

Vous pouvez essayer

Code:

lLastCol = rng.Column + 1
col = ActiveSheet.Range("A") & lLastCol

ou

Code:

Colonne = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)

abtony · 7 Septembre 2010

Re : Correction de code VBA

jetted à dit:
Code non teste

Vous pouvez essayer

Code:

lLastCol = rng.Column + 1 col = ActiveSheet.Range("A") & lLastCol

ou

Code:

Colonne = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)

Bonjour et merci de ton intervention,

Mais je vais rester sur le code de tototiti qui est tout simple.

Une fois de plus merci a vous tous

Correction de code VBA

abtony

XLDnaute Impliqué

fhoest

XLDnaute Accro

tototiti2008

XLDnaute Barbatruc

abtony

XLDnaute Impliqué

ERIC S

XLDnaute Barbatruc

abtony

XLDnaute Impliqué

jetted

XLDnaute Occasionnel

abtony

XLDnaute Impliqué

Discussions similaires

Correction de code VBA

XLDnaute Impliqué

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Occasionnel

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency