Problème VBA

Modeste geedee

XLDnaute Barbatruc

• 22 Octobre 2012

• #2

Re : Problème VBA

Bonsour®

utilise l'enregistreur de macro
regarde le code généré, elague éventuellement les instructions inutiles
adapte ensuite ce code à ta procédure initiale

 

Vote positif 0 Vote négatif

D

dar0609

Guest

• 22 Octobre 2012

• #3

Re : Problème VBA

J'ai un problème je n'arrive pas à associer une cellule à ma combobox, voici mon code :

Private Sub CommandButton1_Click()

If ComboBox1 <> "" Then
Cells(49, 4).Value = Cells(52, 3) + Cells(52, 3).Sheets(ComboBox1.Value)
End If

End Sub

Private Sub userform_activate()

Dim i As Integer, lastRow As Integer
lastRow = Sheets("Feuil1").Cells(65536, 1).End(xlUp).Row
For i = 1 To lastRow

ComboBox1.AddItem Sheets("Feuil1").Cells(i, 1).Value

Next

End Sub

En rouge la ligne qui me pose problème

 

Vote positif 0 Vote négatif

D

dar0609

Guest

• 22 Octobre 2012

• #4

Re : Problème VBA

Private Sub CommandButton1_Click()

If ComboBox1 <> "" Then

Range("D52").FormulaLocal = "=sum(range("C52"):Sheets(ComboBox1.Value).range("C52"))"
End If

Unload Me

End Sub

Quelqu'un pourrait-il me dire pourquoi mon code ne fonctionne pas?

 

Vote positif 0 Vote négatif

C

cazette lavielle

Guest

• 22 Octobre 2012

• #5

Re : Problème VBA

Dim a
Dim b

a = Sheets("feuil1").Range("A1").Value
b = Sheets("feuil2").Range("A1").Value

Sheets("feuil1").Range("B1").Value = a + b

ce code marche il te suffit de l'insérer à l'endroit ou tu en a besoin (en mettant les dim en dessous du nom de la macro).

 

Vote positif 0 Vote négatif