Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Ligne vide + affichage

Ligne vide + affichage

2 réponses
Avatar
j0b
Bonsoir à vous, alors voila je suis confronter à un autre problème qui est le
suivant :
je réalisé une userform jusqu'à aucun problème ensuite en vba je réalise une
procédure me permettant de trouver la 1ere cellule vide et à partir de ca je
voudrais bien que sélectionne la cellule d'avant et ajouter 1 à cette cellule
et afficher le résultat dans une textbox.

Ma procédure pour trouver la ligne vide est la suivante :

Dim degage As Boolean

degage = False

ligne = 3


While Not Sheets("liste.utilisateur").Cells(ligne, 2) = ""
ligne = ligne + 1
Wend

voila et a partir de ca je veux sélectionne la cellule qui précède la vide
et ajouter 1 et afficher le résultat dans une textbox.

Merci pour votre aide et pour l'ensemble des connaissances que vous partagé.
Bravo à tout le monde participant à ce news group
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ClémentMarcotte
Bonjour,

While Not Sheets("liste.utilisateur").Cells(ligne, 2) = ""
ligne = ligne + 1
Wend


ajoute " ici"

cells(ligne -1, 2).select
textbox(1).value = activecell.value + 1

Ou sans sélection, en une seule ligne:

textbox1.value = cells(ligne-1,2).value + 1


D'un autre côté, si tu veux atteindre l'avant-dernière ligne occupée sans
rien faire d'autre avant, tu peux donner son 4% à ta boucle While.

lavantderniereligne = range("b65536).end(xlup).row - 1.select ' Sélection
ou
lavantderniereligne = range("b65536).end(xlup).row - 1.address 'L'adresse
ou
lavantderniereligne = range("b65536).end(xlup).row - 1.column 'La colonne
ou
lavantderniereligne = range("b65536).end(xlup).row - 1.value 'La valeur




"j0b" a écrit dans le message de
news:
Bonsoir à vous, alors voila je suis confronter à un autre problème qui est
le

suivant :
je réalisé une userform jusqu'à aucun problème ensuite en vba je réalise
une

procédure me permettant de trouver la 1ere cellule vide et à partir de ca
je

voudrais bien que sélectionne la cellule d'avant et ajouter 1 à cette
cellule

et afficher le résultat dans une textbox.

Ma procédure pour trouver la ligne vide est la suivante :

Dim degage As Boolean

degage = False

ligne = 3



voila et a partir de ca je veux sélectionne la cellule qui précède la vide
et ajouter 1 et afficher le résultat dans une textbox.

Merci pour votre aide et pour l'ensemble des connaissances que vous
partagé.

Bravo à tout le monde participant à ce news group


Avatar
j0b
Un grand merci pour ta réponse normalement c'est nickel chrom encore merci et
bonne journée