ActiveSheet.Range

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #17940011
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" 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


Peponne31
Le #17940181
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" 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




Daniel.C
Le #17940431
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" 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








Jacky
Le #17940531
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" 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" 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






Philippe.R
Le #17941241
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" 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" 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






Peponne31
Le #17941681
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" 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" >> 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
>>
>>




Publicité
Poster une réponse
Anonyme