Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour jojo
dans ta ligne : formule4 = "=" & Sheets("data").Cells(i, coco).Value & " - Pvide!C" & k & ""
Sheets("data").Cells(i, coco).Value contient la valeur décimale. Mais avec une virgule comme séparateur décimal
alors qu'il faut un point dans la configuration de ton excel.
tu peux...
Re : Sélection de plage et lignes par des chiffres,
donc :
Range("B5:H6,B8:H8,B10:H10").Select
=
Union(Range(Cells(5, 2), Cells(6, 8)), Range(Cells(8, 2), Cells(8, 8)), Range(Cells(10, 2), Cells(10, 8))).Select
Re : Sélection de plage et lignes par des chiffres,
Bonjour le forum,
pour coller avec ta question. (n'utiliser que cells() !)
Union(Range(Cells(5, 2), Cells(6, 8)), Range(Cells(8, 2), Cells(8, 8))).Select
@+
Re : Copie de fichiers dans un repertoire qui viens d'etre créer
pour les espaces pourquoi ne faire ceci ?
....
If RTrim(Cell.Value) <> "" Then
.....
je dois m'absenter !
@+
Re : Copie de fichiers dans un repertoire qui viens d'etre créer
oops ! ! !
correction !
Sub test()
Dim FS As FileSystemObject
Set FS = New FileSystemObject
Dim Cell As Range, Chemin As String
Set FS = CreateObject("Scripting.FileSystemObject")
Chemin = "C:\essai\"
For Each...
Re : Copie de fichiers dans un repertoire qui viens d'etre créer
TITITOTO
tout à fait d'accord avec toi !
alors, dans le cadre une utilisation intensive du FSO, utiliser le référencement pour le developpement et le create() pour le deploiement me semble une bonne façon de faire !
@+
Re : Copie de fichiers dans un repertoire qui viens d'etre créer
pour tititoto ( suite ....)
Mon habitude de passser par le référencement vient du fait que l'on accède à la liste des propriétés du fileSystemObject aprés que l'on ai écrit le point :
FS.------>liste des propriétés.
c'est...
Re : Copie de fichiers dans un repertoire qui viens d'etre créer
bonjour tototiti,
tu as raison mais c'est une de mes habitudes !
je vous propose un code qui n'utilise de le FileSystemObject
Sub test()
Dim FS As FileSystemObject
Set FS = New FileSystemObject
Dim Cell As Range...
Re : Copie de fichiers dans un repertoire qui viens d'etre créer
bonjour,
pour que le filesystemobject fonctionne il faut faire référence à
Microsoft Scripting Runtime
via le menu outils---références--- et on coche Microsoft Scripting Runtime
( scrrun.dll)
@+
Re : saisie BD via un formulaire
bonjour lauretaraud,
dans le code du bouton ok tu rajoutes ceci :
MsgBox ("Données insérées avec succés")
Unload Me
je t'envoies le fichier complété
@+
Re : saisie BD via un formulaire
je debauche et je suis absent cet aprèm, alors je reviens sur le site ce soir et on continue demain si tu le désire.
@+
Re : saisie BD via un formulaire
bon on va proceder autrement,
en fait cette fonction sert à èliminer le "TM" du Ref pour l'incrémenter automatiquement et en suite on rajoute le "TM".
de toute façon ceci n'est valable que si la ref est toujours du genre "TMxxxx" est-ce le cas ?
si non dis...
Re : saisie BD via un formulaire
bonjour lauretaraud,
avec un substitut de la fonction Replace() non présente dans excel 97 ici fReplace() que j'ai placé dans le code de l'usf cela devrait fonctionner.
tu me dis
@+
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.