erreur!!!!!!!!!

[sabrina64]

Bonjour,

alors je ne comprends pas , j ai une boucle qui me parait correcte mais qui pourtant ne tourne pas........

voyez vous une erreur:

Private Sub CommandButton1_Click()
    Dim i, j As Integer
    j = 0
    i = 0
    While Workbooks("coloration.xls").Sheets("Feuil1").Cells(2, i).Value <> ""
        j = j + 1
    Wend
    MsgBox j
End Sub

je veux connaitre le nombr e de cellule remplit!

merci

 

[sousou]

Re : erreur!!!!!!!!!

Bonjour
Private Sub CommandButton1_Click()
Dim i, j As Integer
j = 0
i = 0
While Workbooks("coloration.xls").Sheets("Feuil1").Cells(2, i).Value <> ""
j = j + 1
end if
i=i+1
Wend
MsgBox j
End Sub

 

[sousou]

Re : erreur!!!!!!!!!

Non ce n'est pas cela!
Private Sub CommandButton1_Click()
Dim i, j As Integer
j = 0
i = 0
While Workbooks("coloration.xls").Sheets("Feuil1").Cells(2, i).Value <> ""
j = j + 1
i=i+1
Wend
MsgBox j
End Sub
ou index direct avec j

 

[sabrina64]

Re : erreur!!!!!!!!!

Private Sub CommandButton1_Click()

j = 1

While Workbooks("coloration.xls").Sheets("Feuil1").Cells(2, j).Value <> " "
j = j + 1
Wend
MsgBox j
End Sub

 

[bqtr]

Re : erreur!!!!!!!!!

Bonjour sabrina64, sousou

sousou ta 2ème solution est bonne sauf qu'il faut mettre I = 1 à la place de I = 0 au debut du code.
Si tu laisses I = 0, Cells(2,0) provoque une erreur car cette cellule n'existe pas.

Private Sub CommandButton1_Click()
Dim i, j As Integer
j = 0
i = 1
While Workbooks("coloration.xls").Sheets("Feuil1").Cells(2, i).Value <> ""
  j = j + 1
  i = i + 1
Wend
MsgBox j
End Sub

A+

 

[sabrina64]

Re : erreur!!!!!!!!!

j ne comprend pas et ej ne vois pas ou se situe l erreur!

 

[sabrina64]

Re : erreur!!!!!!!!!

merci de prendre la peine de repondre à mes questions


même en ayant initialisé la variable à 1, ca ne me marche pas....ca affiche erreur '1004'

Private Sub CommandButton1_Click()
j = 1
While Workbooks("coloration.xls").Sheets("Feuil1").Cells (2, j).Value <> " "
j = j + 1
Wend
MsgBox j
End Sub

je ne vois pas pourquoi

 

[sousou]

Re : erreur!!!!!!!!!

RE
Heu!
C'est quoi qui marche pas?

Peut-être que si tu envois un bout du fichier!!

 

[sabrina64]

Re : erreur!!!!!!!!!

Private Sub CommandButton1_Click()

    j = 1

    While Workbooks("coloration.xls").Sheets("Feuil1").Cells(2, j).Value <> " "
        j = j + 1
    Wend
    MsgBox j
End Sub

Private Sub UserForm_initialize()
    Call alphatest(1)
    ListBox1.AddItem "0ième"
    ListBox1.AddItem "premier"
    ListBox1.AddItem "deuxieme"
    ListBox1.AddItem "troisieme"
    ListBox1.AddItem "quatrième"
    ListBox1.AddItem "5ième"
End Sub

Sub exemple_click()
    ActiveSheet.Select
   
    Cells(2, 1).Select
    With Selection
        .Value = ListBox1.List(0)
        .Borders(xlEdgeBottom).Weight = xlMedium
        .Borders(xlEdgeRight).Weight = xlMedium
        .Borders(xlEdgeTop).Weight = xlMedium
    End With
        For j = 1 To (ListBox1.ListCount - 1)
            Cells(1, 2 * j).Select
            With Selection
                .Value = ListBox1.List(j)
                '.Borders(xlEdgeBottom).Weight = xlMedium
                '.Borders(xlEdgeRight).Weight = xlMedium
                .Columns.AutoFit
            End With
            Cells(2, 2 * j).Select
            With Selection
                .Value = Cells(1, 2 * j) & " test"
                .Borders(xlEdgeBottom).Weight = xlThin
                .Borders(xlEdgeRight).Weight = xlThin
                .Columns.AutoFit
            End With
            Cells(2, (2 * j) + 1).Select
            With Selection
                .Value = Cells(1, 2 * j) & " valeur"
                .Borders(xlEdgeBottom).Weight = xlThin
                .Borders(xlEdgeRight).Weight = xlThin
                .Columns.AutoFit
            End With
            
            'Cells(1, 2 * j).Value = ListBox1.List(j)
           ' Cells(2, 2 * j).Value = Cells(1, 2 * j) & " test"
            'Cells(2, (2 * j) + 1).Value = Cells(1, 2 * j) & " valeur"
        Next j

 End Sub

etbien ca ne me compte pa smes cellules...
c hallucinant sacahnat qu ej l ai dejà fait ailleurs et que ca marché...mé la j ne voi pas

 

[bqtr]

Re : erreur!!!!!!!!!

re,

C'est une erreur de frappe ou tu as mis le code comme cela, car il y a un espace en trop entre les ". Supprime le
While Workbooks("coloration.xls").Sheets("Feuil1").Cells (2, j).Value <> ""


Workbooks("coloration.xls") est ton classeur actif ?

 

[sousou]

Re : erreur!!!!!!!!!

RE
j=0 ou il ne s'arrète pas?
Es-tu sur de vouloir tester une cellule comptant un espace (" " ou rien "")

 

[sabrina64]

Re : erreur!!!!!!!!!

bingo
vous aviez raison....j ai fourché en tapant le code et je voulais bien "" et non " "

merci beaucoup.......

c rageant comment l innatention fait perdre de temps!!!

merci

 

[bqtr]

Re : erreur!!!!!!!!!

re,

Si tu utilises ce code, il faut retrancher 1 à j pour avoir le nombre de cellules non vide, sinon tu auras une valeur erronée.

Private Sub CommandButton1_Click()
j = 1
While Workbooks("coloration.xls").Sheets("Feuil1").Cells(2, j).Value <> ""
j = j + 1
Wend
[COLOR=Blue] MsgBox j - 1 [/COLOR]' à la place de MsgBox j
End Sub

A+

 

[porcinet82]

Re : erreur!!!!!!!!!

Salut,

Pourquoi utilises-tu ce genre de boucle alors qu'une ligne de code suffirait :
MsgBox Workbooks("Classeur1").Sheets("Feuil1").Range("A2").End(xlToRight).Column

@+