détection des cellules vieds

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:

---

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

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:

---

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:

---

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

---

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

re

Code:

---

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 :

Citation:

---

.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