Félicitations !
+
0
points
En savoir plus
Actualités
Tests & Guides
Bons Plans
Forum
Premium
Rechercher sur le site
Connexion
Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Réinitialiser le mot de passe
Retour connexion
Actualités
Tests & Guides
Bons Plans
GTA 6
iPhone 17
Copilot
Switch 2
Temu
ChatGPT
Tesla
Génération NT
Entraide
Applications
Microsoft Office
Excel
Commande split
Commande split
1 réponse
Claire
21/11/2004 à 18:30
Bonour,
La commande Split me génère une erreur 424. Probablement la façon de créer
ma variable bb.
Un petit coup de main serait bienvenue.
Sub aa()
semaine = DatePart("ww", Date)
totaldata = Range(ActiveCell.Address).Row 'cellule active a135
colonne = Left$(ActiveCell.Offset(0, semaine + 3).Address(0, 0),
(ActiveCell.Offset(0, semaine + 3).Column < 27) + 2)
bb = colonne & totaldata
MsgBox Split([bb].Address, "$")(1)
End Sub
Claire
Partager
Facebook
Twitter
Reddit
Whatsapp
Email
Signaler
Signaler un problème avec ce contenu
Envoyer
1 réponse
Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Supprimer
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Envoyer
AV
Signaler
21/11/2004 à 18:37
Une syntaxe possible :
Sub aa()
semaine = DatePart("ww", Date)
totaldata = Range(ActiveCell.Address).Row 'cellule active a135
colonne = Left$(ActiveCell.Offset(0, semaine + 3).Address(0, 0),
(ActiveCell.Offset(0, semaine + 3).Column < 27) + 2)
bb = Cells(totaldata, colonne).Address
MsgBox Split(bb, "$")(1)
End Sub
AV
Une syntaxe possible :
Sub aa()
semaine = DatePart("ww", Date)
totaldata = Range(ActiveCell.Address).Row 'cellule active a135
colonne = Left$(ActiveCell.Offset(0, semaine + 3).Address(0, 0),
(ActiveCell.Offset(0, semaine + 3).Column < 27) + 2)
bb = Cells(totaldata, colonne).Address
MsgBox Split(bb, "$")(1)
End Sub
AV
Vous avez filtré cet utilisateur ! Consultez son message
Une syntaxe possible :
Sub aa()
semaine = DatePart("ww", Date)
totaldata = Range(ActiveCell.Address).Row 'cellule active a135
colonne = Left$(ActiveCell.Offset(0, semaine + 3).Address(0, 0),
(ActiveCell.Offset(0, semaine + 3).Column < 27) + 2)
bb = Cells(totaldata, colonne).Address
MsgBox Split(bb, "$")(1)
End Sub
AV