Discussion :

[Happy-man]

Bonjour la communauté,
j'espère que vous allez bien, aujourd'hui j'ai rencontré des difficultés en programmation VBA pour vérifier si une cellule dans ma feuille d'Excel est vide, voici la problématique ci-dessous:

la question était "d'écrire une procédure qui permet de calculer la surface d’un rectangle tant que les valeurs de sa hauteur et de sa largeur situé dans les colonnes A et B sont connues (les cellules ne sont pas vides)".

Ma proposition est la suivante même si je trouve pas l'erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub SurfaceRectangle()
 
  Dim Reponse As Double
  Dim i As Integer
 
  Do Until Worksheets("Feuil1").Cells(1, i).Value = "" Or Worksheets("Feuil1").Cells(2, i).Value = ""
      Reponse = Range("A" & i).Value * Range("B" & i).Value
      Range("C" & i).Value = Reponse
  Loop
End Sub

Merci de m'aider à trouver l'erreur svp

[patricktoulon]

re
ben oui ton erreur est simple en fait
a quel moment tu declare que i vaut quelque chose depart ??????
a quel moment tu increment I dans ton do loop ???????
d'autant plus que tu confont ligne et colonne avec les expression range ou cells

range("A6") = en expression (cells) cells(6,1) et non cells(1,6)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub SurfaceRectangle()
 
  Dim Reponse As Double
  Dim i As Integer
' en suposant que ta plage demarre en ligne 2 par exmple 
i=2
  Do Until Worksheets("Feuil1").Cells(1, i).Value = "" Or Worksheets("Feuil1").Cells(2, i).Value = ""'' pas bon !!!!!!!!!!!!!!!!!!!!!!!!!!!!
      Reponse = Range("A" & i).Value * Range("B" & i).Value
      Range("C" & i).Value = Reponse
  i=i+1
Loop
 End Sub

apres pour etre honete avec toi tu t y prends tres mal
il vaut mieux déterminer une plage a la base et boucler sur cette plage


exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 dim plage a range
 set plage= range("A2:B10")
for  i = plage.row to plage.row+plage.rows.count-1
' ton code ici 
'comparer la colonne A et B avec l'index i
next

[Happy-man]

Je te remercie pour ton aide les problème c'est que je sais pas combien de lignes qu'ils sont remplis pour cela j'ai passé par la boucle do until, par contre j'ai une petite question quand je change mes cellules est ce que la macro reste toujours valable ou non merci d'avance

[patricktoulon]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Je te remercie pour ton aide les problème c'est que je sais pas combien de lignes qu'ils sont remplis pour cela j'ai passé par la boucle do until, par contre j'ai une petite question quand je change mes cellules est ce que la macro reste toujours valable ou non merci d'avance

c'est deja en soit une erreur
tu peux parfaitement connaitre la derniere ligne rempli dans une colonne ou meme une plage

fait une recherche sur :

.end(xlup)
.end(xldown)
.usedrange
.curentregion

dans l'aide de vba c'est deja assez explicite
ces connaissances basiques te simplifieront la vie grandement dans tes macros