boucle de selection de cellule

[bebe1310]

Bonjour au forum et encore merci pour tous les precieux conseils que vous m'avez donné sur mes problemes precedents.

Voici un de plus :

Je voudrais faire une macro dans laquelle je lance une boucle qui selectionne la cellule A1 (par exemple), si elle est vide j'y insere une formule (quelle qu'elle soit ce n'est pas grave), si elle n'est pas vide, il selectionne A2, et ainsi de suite en donnant par exemple une limite en A10.


Est-ce qu'il faut utiliser la fonction if. Je ne sais pas


Merci pour votre aide, si vous pouviez me donner la reponse ca m'aiderait enormement car je n'ai pas la moindre idee de la reponse


bebe1310

 

[dj.run]

Bonjour, bebe1310

je suis tres fort en VBA mais si j'ai bien compris ta question, ce code devrai marcher :

Sub test()

'de la cellule a1 à a10

For i = 1 To 10
If IsEmpty(Cells(i, 1)) Then
Cells(i, 1).Value = "vide"
End If
Next i

End Sub

bonne programation

@+ dj.run

 

[bebe1310]

mercibcp pour ton aide ca marche mais je voudrais pousser la fonction :

serait-il possible de l'arreter des qu'il remplit une cellule,

c'est a dire je m'explique :

Si A1 est rempli, il passe en A2, si A2 est vide , il me cree un lien hypertexte vers une autre feuille. Et puis il s'arrete car il a remplit A2, il faudrait qu'il s'arrete des qu'il a remplit une case mais qu'il conerse la possibilite d'aller jusqu'a A10 si les autres sont vides


J'abuse de votre bonte mais ca m'aiderai bcp


Merci


bebe1310

 

[arnaud]

En réutilisant le code de dj.run : un petit exit dé qu'il a écris dans une cellule et voila

Sub test()

'de la cellule a1 à a10

For i = 1 To 10
If IsEmpty(Cells(i, 1)) Then
Cells(i, 1).Value = "vide"
exit sub ' ou exit for au choix
End If
Next i

End Sub

 

[bebe1310]

Merci ca marche

pour ce qui est du lien hypertexte j'ai trouve comme un grand


encore merci


bebe1310

 

[bebe1310]

Encore un petit peu d'aide

Sub test()

'de la cellule a1 à a10

For i = 1 To 10
If IsEmpty(Cells(i, 1)) Then
Cells(i, 1).Value = "vide"
exit sub ' ou exit for au choix
End If
Next i

End Sub

cette macro est tres bien mais je voudrais l'approfondir .

Est-il possible de rajouter apres >>If IsEmpty(Cells(i, 1))<< une autre condition devant etre realisée (exemple qui m'interresse : il faudrait que la cellule A1 de la feuil1 du fichier classeur1 soit egale a ok) pour qu'il marque dans cette case la valeur vide que l'on a definit



Merci pour votre aide je ne sia spas si j'ai ete clair dans ma demande


bebe1310