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 Trouver la 1ere cellule vide...

Trouver la 1ere cellule vide...

8 réponses
Avatar
Alesandro Senerchia
Bonjour a tous

je desire trouver la premiere cellule vide, garder l'adresse et apres y
inscrire une valeur.
Le seul probleme que j'ai c'est que je ne sais pas la valeur de la derniere
ligne (la colonne sera une valeur static dans mon code VBA)

ex :

Dans ce cas si la premiere cellule est la A4
AdrCelVide = adresse A4
Inserer dans cette cellule un texte quelconque.

a b c d
1 X X X X
2 X X X X
3 X X X X
4

Y aurait'il quelqu'un qui aurait une reponse a cette solution.

Voitre aide sera grandement apprecie.

merci d'avance.

Alex
Signaler un problème avec ce contenu

8 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
isabelle
bonjour Alex,

Set lacellule = Range("A" & Range("A65536").End(xlUp).Row + 1)
lacellule.select 'pour vérifier

isabelle


Bonjour a tous

je desire trouver la premiere cellule vide, garder l'adresse et apres y
inscrire une valeur.
Le seul probleme que j'ai c'est que je ne sais pas la valeur de la derniere
ligne (la colonne sera une valeur static dans mon code VBA)

ex :

Dans ce cas si la premiere cellule est la A4
AdrCelVide = adresse A4
Inserer dans cette cellule un texte quelconque.

a b c d
1 X X X X
2 X X X X
3 X X X X
4

Y aurait'il quelqu'un qui aurait une reponse a cette solution.

Voitre aide sera grandement apprecie.

merci d'avance.

Alex


Avatar
Daniel Pelletier
Bonsoir Isabelle
Dans le même ordre d'idée

je veut copier une plage sur une autre feuille, a la fin de la liste de
cette feuille,
La collonne K a toujour du data (c'est pour cela que je veut utiliser cette
colonne ).
Je veut selectionner la cellule en bas de la dernière vide (pas
nécessairement K99).

Range("B18:M18").Select
Selection.Copy
Sheets("Base").Select
Range("K1").Select
Selection.End(xlDown).Select
Range("K99").Select
Selection.End(xlToLeft).Select
ActiveSheet.Paste
Range("A100").Select
End Sub

Merci

"isabelle" a écrit dans le message de
news:
bonjour Alex,

Set lacellule = Range("A" & Range("A65536").End(xlUp).Row + 1)
lacellule.select 'pour vérifier

isabelle


Bonjour a tous

je desire trouver la premiere cellule vide, garder l'adresse et apres y
inscrire une valeur.
Le seul probleme que j'ai c'est que je ne sais pas la valeur de la
derniere


ligne (la colonne sera une valeur static dans mon code VBA)

ex :

Dans ce cas si la premiere cellule est la A4
AdrCelVide = adresse A4
Inserer dans cette cellule un texte quelconque.

a b c d
1 X X X X
2 X X X X
3 X X X X
4

Y aurait'il quelqu'un qui aurait une reponse a cette solution.

Voitre aide sera grandement apprecie.

merci d'avance.

Alex




Avatar
isabelle
bonsoir Daniel,

je modifierais comme suit,

DerniereLigne = Sheets("Base").Range("K65536").End(xlUp).Row + 1
'attention les deux prochaines lignes, sont en fait une seule ligne.
Range("B18:M18").Copy _
Destination:=Sheets("Base").Range("A" & DerniereLigne)
Application.Goto Sheets("Base").Range("A" & DerniereLigne + 1)

isabelle


Bonsoir Isabelle
Dans le même ordre d'idée

je veut copier une plage sur une autre feuille, a la fin de la liste de
cette feuille,
La collonne K a toujour du data (c'est pour cela que je veut utiliser cette
colonne ).
Je veut selectionner la cellule en bas de la dernière vide (pas
nécessairement K99).

Range("B18:M18").Select
Selection.Copy
Sheets("Base").Select
Range("K1").Select
Selection.End(xlDown).Select
Range("K99").Select
Selection.End(xlToLeft).Select
ActiveSheet.Paste
Range("A100").Select
End Sub

Merci

"isabelle" a écrit dans le message de
news:
bonjour Alex,

Set lacellule = Range("A" & Range("A65536").End(xlUp).Row + 1)
lacellule.select 'pour vérifier

isabelle


Bonjour a tous

je desire trouver la premiere cellule vide, garder l'adresse et apres y
inscrire une valeur.
Le seul probleme que j'ai c'est que je ne sais pas la valeur de la
derniere


ligne (la colonne sera une valeur static dans mon code VBA)

ex :

Dans ce cas si la premiere cellule est la A4
AdrCelVide = adresse A4
Inserer dans cette cellule un texte quelconque.

a b c d
1 X X X X
2 X X X X
3 X X X X
4

Y aurait'il quelqu'un qui aurait une reponse a cette solution.

Voitre aide sera grandement apprecie.

merci d'avance.

Alex






Avatar
ru-th
Salut

Range("B18:M18").copy range("B"&[K65536].end(xlup).row+1)

a+
rural thierry

"Daniel Pelletier" a écrit dans le message de news:
#
Bonsoir Isabelle
Dans le même ordre d'idée

je veut copier une plage sur une autre feuille, a la fin de la liste de
cette feuille,
La collonne K a toujour du data (c'est pour cela que je veut utiliser
cette

colonne ).
Je veut selectionner la cellule en bas de la dernière vide (pas
nécessairement K99).

Range("B18:M18").Select
Selection.Copy
Sheets("Base").Select
Range("K1").Select
Selection.End(xlDown).Select
Range("K99").Select
Selection.End(xlToLeft).Select
ActiveSheet.Paste
Range("A100").Select
End Sub

Merci

"isabelle" a écrit dans le message de
news:
bonjour Alex,

Set lacellule = Range("A" & Range("A65536").End(xlUp).Row + 1)
lacellule.select 'pour vérifier

isabelle


Bonjour a tous

je desire trouver la premiere cellule vide, garder l'adresse et apres
y



inscrire une valeur.
Le seul probleme que j'ai c'est que je ne sais pas la valeur de la
derniere


ligne (la colonne sera une valeur static dans mon code VBA)

ex :

Dans ce cas si la premiere cellule est la A4
AdrCelVide = adresse A4
Inserer dans cette cellule un texte quelconque.

a b c d
1 X X X X
2 X X X X
3 X X X X
4

Y aurait'il quelqu'un qui aurait une reponse a cette solution.

Voitre aide sera grandement apprecie.

merci d'avance.

Alex








Avatar
Daniel Pelletier
Bonjour Isabelle
Il faut croire que la nuit fait du bien cela fonctionne bien a matin :-))
je voudrait modifier un peut ,
Dans le rang de départ, ("B18:M47") je voudrait choisir les ligne qui ont du
data (la colonne "E"pour référence)
Pour ne pas copier des lignes vide

Merci encore


"isabelle" a écrit dans le message de
news:
bonsoir Daniel,

je modifierais comme suit,

DerniereLigne = Sheets("Base").Range("K65536").End(xlUp).Row + 1
'attention les deux prochaines lignes, sont en fait une seule ligne.
Range("B18:M18").Copy _
Destination:=Sheets("Base").Range("A" & DerniereLigne)
Application.Goto Sheets("Base").Range("A" & DerniereLigne + 1)

isabelle


Bonsoir Isabelle
Dans le même ordre d'idée

je veut copier une plage sur une autre feuille, a la fin de la liste de
cette feuille,
La collonne K a toujour du data (c'est pour cela que je veut utiliser
cette


colonne ).
Je veut selectionner la cellule en bas de la dernière vide (pas
nécessairement K99).

Range("B18:M18").Select
Selection.Copy
Sheets("Base").Select
Range("K1").Select
Selection.End(xlDown).Select
Range("K99").Select
Selection.End(xlToLeft).Select
ActiveSheet.Paste
Range("A100").Select
End Sub

Merci

"isabelle" a écrit dans le message de
news:
bonjour Alex,

Set lacellule = Range("A" & Range("A65536").End(xlUp).Row + 1)
lacellule.select 'pour vérifier

isabelle


Bonjour a tous

je desire trouver la premiere cellule vide, garder l'adresse et
apres y




inscrire une valeur.
Le seul probleme que j'ai c'est que je ne sais pas la valeur de la
derniere


ligne (la colonne sera une valeur static dans mon code VBA)

ex :

Dans ce cas si la premiere cellule est la A4
AdrCelVide = adresse A4
Inserer dans cette cellule un texte quelconque.

a b c d
1 X X X X
2 X X X X
3 X X X X
4

Y aurait'il quelqu'un qui aurait une reponse a cette solution.

Voitre aide sera grandement apprecie.

merci d'avance.

Alex








Avatar
isabelle
re bonjour Daniel,

est que comme ça, ça irait ?

PLigne = Columns("E:E").SpecialCells(xlCellTypeConstants,
23).Item(1).Row
DLigne = Columns("E:E").SpecialCells(xlCellTypeConstants, 23).Count +
PLigne - 1
Range("B" & PLigne & ":M" & DLigne).Select

isabelle


Bonjour Isabelle
Il faut croire que la nuit fait du bien cela fonctionne bien a matin :-))
je voudrait modifier un peut ,
Dans le rang de départ, ("B18:M47") je voudrait choisir les ligne qui ont du
data (la colonne "E"pour référence)
Pour ne pas copier des lignes vide

Merci encore

"isabelle" a écrit dans le message de
news:
bonsoir Daniel,

je modifierais comme suit,

DerniereLigne = Sheets("Base").Range("K65536").End(xlUp).Row + 1
'attention les deux prochaines lignes, sont en fait une seule ligne.
Range("B18:M18").Copy _
Destination:=Sheets("Base").Range("A" & DerniereLigne)
Application.Goto Sheets("Base").Range("A" & DerniereLigne + 1)

isabelle


Bonsoir Isabelle
Dans le même ordre d'idée

je veut copier une plage sur une autre feuille, a la fin de la liste de
cette feuille,
La collonne K a toujour du data (c'est pour cela que je veut utiliser
cette


colonne ).
Je veut selectionner la cellule en bas de la dernière vide (pas
nécessairement K99).

Range("B18:M18").Select
Selection.Copy
Sheets("Base").Select
Range("K1").Select
Selection.End(xlDown).Select
Range("K99").Select
Selection.End(xlToLeft).Select
ActiveSheet.Paste
Range("A100").Select
End Sub

Merci

"isabelle" a écrit dans le message de
news:
bonjour Alex,

Set lacellule = Range("A" & Range("A65536").End(xlUp).Row + 1)
lacellule.select 'pour vérifier

isabelle


Bonjour a tous

je desire trouver la premiere cellule vide, garder l'adresse et
apres y




inscrire une valeur.
Le seul probleme que j'ai c'est que je ne sais pas la valeur de la
derniere


ligne (la colonne sera une valeur static dans mon code VBA)

ex :

Dans ce cas si la premiere cellule est la A4
AdrCelVide = adresse A4
Inserer dans cette cellule un texte quelconque.

a b c d
1 X X X X
2 X X X X
3 X X X X
4

Y aurait'il quelqu'un qui aurait une reponse a cette solution.

Voitre aide sera grandement apprecie.

merci d'avance.

Alex










Avatar
Daniel Pelletier
Re bonjour Isabelle
Voici la copie de ma macro elle ne marche pas !

Ceque j'ai besoin est de copier les ligne qui ont du data
(dans la plage "B18:M47"de la "Feuille_insp")
en utilisent colonne E comme référence.
Puis coller en bas de la dernière ligne vide de la feuille "Base"


Sub Macro6()
'
' Macro6 Macro
' Macro enregistrée le 2004-04-22 par Daniel
'

'

PLigne = Columns("E:E").SpecialCells(xlCellTypeConstants,
23).Item(1).Row
DLigne = Columns("E:E").SpecialCells(xlCellTypeConstants, 23).Count +
PLigne - 1
Range("B" & PLigne & ":M" & DLigne).Select
DerniereLigne = Sheets("Base").Range("K65536").End(xlUp).Row + 1
Range("B18:M47").Copy Destination:=Sheets("Base").Range("A" & DerniereLigne)
Application.Goto Sheets("Base").Range("A" & DerniereLigne + 1)
End Sub


"isabelle" a écrit dans le message de
news:
re bonjour Daniel,

est que comme ça, ça irait ?

PLigne = Columns("E:E").SpecialCells(xlCellTypeConstants,
23).Item(1).Row
DLigne = Columns("E:E").SpecialCells(xlCellTypeConstants, 23).Count +
PLigne - 1
Range("B" & PLigne & ":M" & DLigne).Select

isabelle


Bonjour Isabelle
Il faut croire que la nuit fait du bien cela fonctionne bien a matin
:-))


je voudrait modifier un peut ,
Dans le rang de départ, ("B18:M47") je voudrait choisir les ligne qui
ont du


data (la colonne "E"pour référence)
Pour ne pas copier des lignes vide

Merci encore

"isabelle" a écrit dans le message de
news:
bonsoir Daniel,

je modifierais comme suit,

DerniereLigne = Sheets("Base").Range("K65536").End(xlUp).Row + 1
'attention les deux prochaines lignes, sont en fait une seule ligne.
Range("B18:M18").Copy _
Destination:=Sheets("Base").Range("A" & DerniereLigne)
Application.Goto Sheets("Base").Range("A" & DerniereLigne + 1)

isabelle







Avatar
isabelle
re bonjour Daniel,

si j'ai bien compris c'est la plage Range("B" & PLigne & ":M" & DLigne)
qui doit être copiée.

PLigne = Columns("E:E").SpecialCells(xlCellTypeConstants,
23).Item(1).Row
DLigne = Columns("E:E").SpecialCells(xlCellTypeConstants, 23).Count +
PLigne - 1
DerniereLigne = Sheets("Base").Range("K65536").End(xlUp).Row + 1
Range("B" & PLigne & ":M" & DLigne).Copy _
Destination:=Sheets("Base").Range("A" & DerniereLigne)
Application.Goto Sheets("Base").Range("A" & DerniereLigne + 1)

a+
isabelle


Re bonjour Isabelle
Voici la copie de ma macro elle ne marche pas !

Ceque j'ai besoin est de copier les ligne qui ont du data
(dans la plage "B18:M47"de la "Feuille_insp")
en utilisent colonne E comme référence.
Puis coller en bas de la dernière ligne vide de la feuille "Base"

Sub Macro6()
'
' Macro6 Macro
' Macro enregistrée le 2004-04-22 par Daniel
'

'

PLigne = Columns("E:E").SpecialCells(xlCellTypeConstants,
23).Item(1).Row
DLigne = Columns("E:E").SpecialCells(xlCellTypeConstants, 23).Count +
PLigne - 1
Range("B" & PLigne & ":M" & DLigne).Select
DerniereLigne = Sheets("Base").Range("K65536").End(xlUp).Row + 1
Range("B18:M47").Copy Destination:=Sheets("Base").Range("A" & DerniereLigne)
Application.Goto Sheets("Base").Range("A" & DerniereLigne + 1)
End Sub

"isabelle" a écrit dans le message de
news:
re bonjour Daniel,

est que comme ça, ça irait ?

PLigne = Columns("E:E").SpecialCells(xlCellTypeConstants,
23).Item(1).Row
DLigne = Columns("E:E").SpecialCells(xlCellTypeConstants, 23).Count +
PLigne - 1
Range("B" & PLigne & ":M" & DLigne).Select

isabelle


Bonjour Isabelle
Il faut croire que la nuit fait du bien cela fonctionne bien a matin
:-))


je voudrait modifier un peut ,
Dans le rang de départ, ("B18:M47") je voudrait choisir les ligne qui
ont du


data (la colonne "E"pour référence)
Pour ne pas copier des lignes vide

Merci encore

"isabelle" a écrit dans le message de
news:
bonsoir Daniel,

je modifierais comme suit,

DerniereLigne = Sheets("Base").Range("K65536").End(xlUp).Row + 1
'attention les deux prochaines lignes, sont en fait une seule ligne.
Range("B18:M18").Copy _
Destination:=Sheets("Base").Range("A" & DerniereLigne)
Application.Goto Sheets("Base").Range("A" & DerniereLigne + 1)

isabelle