Commande en VB
Fermé
PascalDCN
Messages postés
16
Date d'inscription
dimanche 4 décembre 2005
Statut
Membre
Dernière intervention
15 novembre 2015
-
4 déc. 2005 à 11:09
PascalDCN Messages postés 16 Date d'inscription dimanche 4 décembre 2005 Statut Membre Dernière intervention 15 novembre 2015 - 4 déc. 2005 à 20:47
PascalDCN Messages postés 16 Date d'inscription dimanche 4 décembre 2005 Statut Membre Dernière intervention 15 novembre 2015 - 4 déc. 2005 à 20:47
A voir également:
- Commande en VB
- Invite de commande - Guide
- Commande terminal mac - Guide
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Commande chkdsk - Guide
2 réponses
Bonjour,
après quelques modifications, j'obtiens :
Lupin
après quelques modifications, j'obtiens :
Sub horodatage()
Dim NoLgn As Integer
Range("A4").Select
NoLgn = (ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count)
Range("A" & NoLgn).Select
ActiveCell.Formula = "=NOW()"
ActiveCell.Copy
ActiveCell.PasteSpecial
Selection.PasteSpecial (xlPasteValues)
Range("B" & NoLgn).Select
End Sub
Lupin
re :
après vérification :
la propriété en lecture seul de Row et Rows renvoie un nombre
de type Long, pour éviter les erreurs de type, déclare la variable
de type Long. De plus le caractère de concaténation en VB est
la clé de sol -> &, le caractère -> + est un dérivé des languages
du net. Dans toutes les applications que j'ai vu, fait ou étudier,
Basic, Quick Basic, VB 3,4,5,6, VBA, VBS le caractère & ne m'a
jamais fait défaut.
après vérification :
la propriété en lecture seul de Row et Rows renvoie un nombre
de type Long, pour éviter les erreurs de type, déclare la variable
de type Long. De plus le caractère de concaténation en VB est
la clé de sol -> &, le caractère -> + est un dérivé des languages
du net. Dans toutes les applications que j'ai vu, fait ou étudier,
Basic, Quick Basic, VB 3,4,5,6, VBA, VBS le caractère & ne m'a
jamais fait défaut.
Sub horodatage()
Dim NoLgn As Long
Range("A4").Select
NoLgn = (ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count)
Range("A" & NoLgn).Select
ActiveCell.Formula = "=NOW()"
ActiveCell.Copy
ActiveCell.PasteSpecial
Selection.PasteSpecial (xlPasteValues)
Range("B" & NoLgn).Select
End Sub
4 déc. 2005 à 20:47