Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel ActiveSheet.Range

ActiveSheet.Range

6 réponses
Avatar
Peponne31
Bonsoir à tous,

Je suis sous Excel 2003, dans un userform, j'ai ceci :
Private Sub CmdValider_Click()
If ActiveSheet.[A21] = "" Then
ActiveSheet.[A21].Select
Else
ActiveSheet.Range("A21").End(xlDown).Offset(1, 0).Select
End If
ActiveSheet.Unprotect
With ActiveCell
'--- Transfert des données du Formulaire dans Facture1page
ActiveCell.Value = Application.Proper(Me.Liste)
ActiveCell.Offset(0, 3).Value = CCur(Me.Valeur)

End With

'Me.Catégories.Enabled = True
Me.Sexe.Visible = False
Me.Services = ""
Me.Catégories = ""
Me.COMEPIL = ""
Me.Liste = ""
Me.Valeur = ""
ActiveSheet.Protect
End Sub

Dans ma feuille, en A21 j'ai ma première saisie qui est correcte
mais je ne peux pas aller plus bas. Si quelqu'un veut bien me corriger !!
Merci par avance
Peponne31
Signaler un problème avec ce contenu

6 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
Philippe.R
Bonsoir,
Avec ceci :

If ActiveSheet.[A21] = "" Then
ActiveSheet.[A21].Select
Else
ActiveSheet.Range("A6536").End(xlUp).Offset(1, 0).Select
End If

ça devrait mieux se passer
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Peponne31" a écrit dans le message de
news:
Bonsoir à tous,

Je suis sous Excel 2003, dans un userform, j'ai ceci :
Private Sub CmdValider_Click()
If ActiveSheet.[A21] = "" Then
ActiveSheet.[A21].Select
Else
ActiveSheet.Range("A21").End(xlDown).Offset(1, 0).Select
End If
ActiveSheet.Unprotect
With ActiveCell
'--- Transfert des données du Formulaire dans Facture1page
ActiveCell.Value = Application.Proper(Me.Liste)
ActiveCell.Offset(0, 3).Value = CCur(Me.Valeur)

End With

'Me.Catégories.Enabled = True
Me.Sexe.Visible = False
Me.Services = ""
Me.Catégories = ""
Me.COMEPIL = ""
Me.Liste = ""
Me.Valeur = ""
ActiveSheet.Protect
End Sub

Dans ma feuille, en A21 j'ai ma première saisie qui est correcte
mais je ne peux pas aller plus bas. Si quelqu'un veut bien me corriger !!
Merci par avance
Peponne31


Avatar
Peponne31
Bonsoir Philippe.R

Merci pour ton coup de main , j'ai toujour la mème erreur! a savoir cette
ligne
ActiveSheet.Range("A6536").End(xlDown).Offset(1, 0).Select
en surbrillance.
Si tu vois autre chose ...
Cordialement Peponne31
"Philippe.R" a écrit :

Bonsoir,
Avec ceci :

If ActiveSheet.[A21] = "" Then
ActiveSheet.[A21].Select
Else
ActiveSheet.Range("A6536").End(xlUp).Offset(1, 0).Select
End If

ça devrait mieux se passer
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Peponne31" a écrit dans le message de
news:
> Bonsoir à tous,
>
> Je suis sous Excel 2003, dans un userform, j'ai ceci :
> Private Sub CmdValider_Click()
> If ActiveSheet.[A21] = "" Then
> ActiveSheet.[A21].Select
> Else
> ActiveSheet.Range("A21").End(xlDown).Offset(1, 0).Select
> End If
> ActiveSheet.Unprotect
> With ActiveCell
> '--- Transfert des données du Formulaire dans Facture1page
> ActiveCell.Value = Application.Proper(Me.Liste)
> ActiveCell.Offset(0, 3).Value = CCur(Me.Valeur)
>
> End With
>
> 'Me.Catégories.Enabled = True
> Me.Sexe.Visible = False
> Me.Services = ""
> Me.Catégories = ""
> Me.COMEPIL = ""
> Me.Liste = ""
> Me.Valeur = ""
> ActiveSheet.Protect
> End Sub
>
> Dans ma feuille, en A21 j'ai ma première saisie qui est correcte
> mais je ne peux pas aller plus bas. Si quelqu'un veut bien me corriger !!
> Merci par avance
> Peponne31




Avatar
Daniel.C
Bonsoir.
Essaie avec :
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select
Sinon, quel est le message d'erreur ?
Cordialement.
Daniel

Bonsoir Philippe.R

Merci pour ton coup de main , j'ai toujour la mème erreur! a savoir cette
ligne
ActiveSheet.Range("A6536").End(xlDown).Offset(1, 0).Select
en surbrillance.
Si tu vois autre chose ...
Cordialement Peponne31
"Philippe.R" a écrit :

Bonsoir,
Avec ceci :

If ActiveSheet.[A21] = "" Then
ActiveSheet.[A21].Select
Else
ActiveSheet.Range("A6536").End(xlUp).Offset(1, 0).Select
End If

ça devrait mieux se passer
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Peponne31" a écrit dans le message de
news:
Bonsoir à tous,

Je suis sous Excel 2003, dans un userform, j'ai ceci :
Private Sub CmdValider_Click()
If ActiveSheet.[A21] = "" Then
ActiveSheet.[A21].Select
Else
ActiveSheet.Range("A21").End(xlDown).Offset(1, 0).Select
End If
ActiveSheet.Unprotect
With ActiveCell
'--- Transfert des données du Formulaire dans Facture1page
ActiveCell.Value = Application.Proper(Me.Liste)
ActiveCell.Offset(0, 3).Value = CCur(Me.Valeur)

End With

'Me.Catégories.Enabled = True
Me.Sexe.Visible = False
Me.Services = ""
Me.Catégories = ""
Me.COMEPIL = ""
Me.Liste = ""
Me.Valeur = ""
ActiveSheet.Protect
End Sub

Dans ma feuille, en A21 j'ai ma première saisie qui est correcte
mais je ne peux pas aller plus bas. Si quelqu'un veut bien me corriger !!
Merci par avance
Peponne31








Avatar
Jacky
Bonsoir,
Supprime ceci
'------------
If ActiveSheet.[A21] = "" Then
ActiveSheet.[A21].Select
Else
ActiveSheet.Range("A21").End(xlDown).Offset(1, 0).Select
End If
'-------------
et remplace par

ActiveSheet.[A21].Offset(Abs(ActiveSheet.[A21] <> "") * 1, 0).Select
----
----
--
Salutations
JJ


"Peponne31" a écrit dans le message de
news:
Bonsoir Philippe.R

Merci pour ton coup de main , j'ai toujour la mème erreur! a savoir cette
ligne
ActiveSheet.Range("A6536").End(xlDown).Offset(1, 0).Select
en surbrillance.
Si tu vois autre chose ...
Cordialement Peponne31
"Philippe.R" a écrit :

Bonsoir,
Avec ceci :

If ActiveSheet.[A21] = "" Then
ActiveSheet.[A21].Select
Else
ActiveSheet.Range("A6536").End(xlUp).Offset(1, 0).Select
End If

ça devrait mieux se passer
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Peponne31" a écrit dans le message
de
news:
> Bonsoir à tous,
>
> Je suis sous Excel 2003, dans un userform, j'ai ceci :
> Private Sub CmdValider_Click()
> If ActiveSheet.[A21] = "" Then
> ActiveSheet.[A21].Select
> Else
> ActiveSheet.Range("A21").End(xlDown).Offset(1, 0).Select
> End If
> ActiveSheet.Unprotect
> With ActiveCell
> '--- Transfert des données du Formulaire dans Facture1page
> ActiveCell.Value = Application.Proper(Me.Liste)
> ActiveCell.Offset(0, 3).Value = CCur(Me.Valeur)
>
> End With
>
> 'Me.Catégories.Enabled = True
> Me.Sexe.Visible = False
> Me.Services = ""
> Me.Catégories = ""
> Me.COMEPIL = ""
> Me.Liste = ""
> Me.Valeur = ""
> ActiveSheet.Protect
> End Sub
>
> Dans ma feuille, en A21 j'ai ma première saisie qui est correcte
> mais je ne peux pas aller plus bas. Si quelqu'un veut bien me corriger
> !!
> Merci par avance
> Peponne31






Avatar
Philippe.R
Bonjour,
Normal que tu obtiennes une erreur avec xlDown puisque cette ligne de
commande, associée à offset(1,0) demande à Excel de sélectionner la 1ère
ligne après la dernière (65537 sur les versions d'Excel avant 2007) et que
celle ci n'existe pas.
C'est pourquoi je t'avais proposé xlUp :
ActiveSheet.Range("A6536").End(xlUp).Offset(1, 0).Select
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Peponne31" a écrit dans le message de
news:
Bonsoir Philippe.R

Merci pour ton coup de main , j'ai toujour la mème erreur! a savoir cette
ligne
ActiveSheet.Range("A6536").End(xlDown).Offset(1, 0).Select
en surbrillance.
Si tu vois autre chose ...
Cordialement Peponne31
"Philippe.R" a écrit :

Bonsoir,
Avec ceci :

If ActiveSheet.[A21] = "" Then
ActiveSheet.[A21].Select
Else
ActiveSheet.Range("A6536").End(xlUp).Offset(1, 0).Select
End If

ça devrait mieux se passer
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Peponne31" a écrit dans le message
de
news:
> Bonsoir à tous,
>
> Je suis sous Excel 2003, dans un userform, j'ai ceci :
> Private Sub CmdValider_Click()
> If ActiveSheet.[A21] = "" Then
> ActiveSheet.[A21].Select
> Else
> ActiveSheet.Range("A21").End(xlDown).Offset(1, 0).Select
> End If
> ActiveSheet.Unprotect
> With ActiveCell
> '--- Transfert des données du Formulaire dans Facture1page
> ActiveCell.Value = Application.Proper(Me.Liste)
> ActiveCell.Offset(0, 3).Value = CCur(Me.Valeur)
>
> End With
>
> 'Me.Catégories.Enabled = True
> Me.Sexe.Visible = False
> Me.Services = ""
> Me.Catégories = ""
> Me.COMEPIL = ""
> Me.Liste = ""
> Me.Valeur = ""
> ActiveSheet.Protect
> End Sub
>
> Dans ma feuille, en A21 j'ai ma première saisie qui est correcte
> mais je ne peux pas aller plus bas. Si quelqu'un veut bien me corriger
> !!
> Merci par avance
> Peponne31






Avatar
Peponne31
Bonjour,

Merci pour vos réponses, j'avais oublié de modifier (xlUp)
Merci encore
Cordialement
Peponne31

"Philippe.R" a écrit :

Bonjour,
Normal que tu obtiennes une erreur avec xlDown puisque cette ligne de
commande, associée à offset(1,0) demande à Excel de sélectionner la 1ère
ligne après la dernière (65537 sur les versions d'Excel avant 2007) et que
celle ci n'existe pas.
C'est pourquoi je t'avais proposé xlUp :
ActiveSheet.Range("A6536").End(xlUp).Offset(1, 0).Select
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Peponne31" a écrit dans le message de
news:
> Bonsoir Philippe.R
>
> Merci pour ton coup de main , j'ai toujour la mème erreur! a savoir cette
> ligne
> ActiveSheet.Range("A6536").End(xlDown).Offset(1, 0).Select
> en surbrillance.
> Si tu vois autre chose ...
> Cordialement Peponne31
> "Philippe.R" a écrit :
>
>> Bonsoir,
>> Avec ceci :
>>
>> If ActiveSheet.[A21] = "" Then
>> ActiveSheet.[A21].Select
>> Else
>> ActiveSheet.Range("A6536").End(xlUp).Offset(1, 0).Select
>> End If
>>
>> ça devrait mieux se passer
>> --
>> Avec plaisir
>> http://dj.joss.free.fr/trombine.htm
>> http://jacxl.free.fr/mpfe/trombino.html
>> Philippe.R
>> Pour se connecter au forum :
>> http://www.excelabo.net/mpfe/connexion.php
>> News://news.microsoft.com/microsoft.public.fr.excel
>> "Peponne31" a écrit dans le message
>> de
>> news:
>> > Bonsoir à tous,
>> >
>> > Je suis sous Excel 2003, dans un userform, j'ai ceci :
>> > Private Sub CmdValider_Click()
>> > If ActiveSheet.[A21] = "" Then
>> > ActiveSheet.[A21].Select
>> > Else
>> > ActiveSheet.Range("A21").End(xlDown).Offset(1, 0).Select
>> > End If
>> > ActiveSheet.Unprotect
>> > With ActiveCell
>> > '--- Transfert des données du Formulaire dans Facture1page
>> > ActiveCell.Value = Application.Proper(Me.Liste)
>> > ActiveCell.Offset(0, 3).Value = CCur(Me.Valeur)
>> >
>> > End With
>> >
>> > 'Me.Catégories.Enabled = True
>> > Me.Sexe.Visible = False
>> > Me.Services = ""
>> > Me.Catégories = ""
>> > Me.COMEPIL = ""
>> > Me.Liste = ""
>> > Me.Valeur = ""
>> > ActiveSheet.Protect
>> > End Sub
>> >
>> > Dans ma feuille, en A21 j'ai ma première saisie qui est correcte
>> > mais je ne peux pas aller plus bas. Si quelqu'un veut bien me corriger
>> > !!
>> > Merci par avance
>> > Peponne31
>>
>>