Recherche cellule vide sur VBA 2007
flo
-
flo -
flo -
Bonjour,
J'ai un petit soucis sur VBA. Dans le cadre d'un projet avec l'université, je dois crée un programme en VBA, et pour cela, il me faudrait utiliser une fonction recherche de la première case vide dans la colonne A. Or j'ai essayer avec différentes fonction tel que find(""), Vlookup, des boucles do while mais je n'ai malheuresement pas réussi à trouver la solution, donc si vous avez une idée, je suis preneur.
Merci de votre aide.
J'ai un petit soucis sur VBA. Dans le cadre d'un projet avec l'université, je dois crée un programme en VBA, et pour cela, il me faudrait utiliser une fonction recherche de la première case vide dans la colonne A. Or j'ai essayer avec différentes fonction tel que find(""), Vlookup, des boucles do while mais je n'ai malheuresement pas réussi à trouver la solution, donc si vous avez une idée, je suis preneur.
Merci de votre aide.
A voir également:
- Recherche cellule vide sur VBA 2007
- Save as pdf office 2007 - Télécharger - Bureautique
- Comment supprimer une page vide sur word - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Excel compter cellule couleur sans vba - Guide
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
10 réponses
c du bidouillage ce que tu fais !!!
je serais toi je ferais ca :
recherche = Worksheets("MRP").Cells(1, 1).End(xlDown).Row +1
Worksheets("MRP").Cells(recherche, 1).value = "ok"
je serais toi je ferais ca :
recherche = Worksheets("MRP").Cells(1, 1).End(xlDown).Row +1
Worksheets("MRP").Cells(recherche, 1).value = "ok"
heu dsl
derniere cellule ecrite:
Worksheets("nom_de_ta_feuille").Cells(1, 1).End(xlDown).Row
1ere cellule vide
Worksheets("nom_de_ta_feuille").Cells(1, 1).End(xlDown).Row + 1
derniere cellule ecrite:
Worksheets("nom_de_ta_feuille").Cells(1, 1).End(xlDown).Row
1ere cellule vide
Worksheets("nom_de_ta_feuille").Cells(1, 1).End(xlDown).Row + 1
Merci pour la reponse si rapide.
Malheuresement, ça ne marche pas : VBA me retire le +1 et après, je veux pouvoir écrire dans la sélection (la première case vide). je fais donc
recherche = Worksheets("MRP").Cells(1, 1).End(xlDown).Row
mais il ne refuse pas de le faire, mais ne fait rien.
Merci de m'aider
Malheuresement, ça ne marche pas : VBA me retire le +1 et après, je veux pouvoir écrire dans la sélection (la première case vide). je fais donc
recherche = Worksheets("MRP").Cells(1, 1).End(xlDown).Row
mais il ne refuse pas de le faire, mais ne fait rien.
Merci de m'aider
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Sa y est, je croi avoir trouver avec ce que j'ai pu voir sur internet et de ce que je connais :
For i =1 To 100 Step 7
If Cells(i + 7, 1).Value = "" Then Exit For
Next i
Cells(i + 7, 1).Value = "ok"
ce qui me recherche la case vide, y inscrit "ok" avec un pas de 7 en partant le A1
For i =1 To 100 Step 7
If Cells(i + 7, 1).Value = "" Then Exit For
Next i
Cells(i + 7, 1).Value = "ok"
ce qui me recherche la case vide, y inscrit "ok" avec un pas de 7 en partant le A1
oui, mais ça ne marche pas :
recherche = Worksheets("MRP").Cells(1, 1).End(xlDown).Row +1
car VBA transforme en :
recherche = Worksheets("MRP").Cells(1, 1).End(xlDown).Row 1
et la, ce n'est plus bon
recherche = Worksheets("MRP").Cells(1, 1).End(xlDown).Row +1
car VBA transforme en :
recherche = Worksheets("MRP").Cells(1, 1).End(xlDown).Row 1
et la, ce n'est plus bon
oui, quand je tape tout moi même, VBA accepte, mais je comprend pas bien ce que signifie End(xlDown)
