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,
Sub CalculDate()
Dim c As Range
Dim y As Long, m As Long, d As Long
For Each c In Selection
y = Year(Date)
m = ((c.Row * 3 + c.Column * 5) Mod 12) + 1
d = ((c.Row * 7 + c.Column * 11) Mod 31) + 1
m = m - ((m - 4) Mod 12)
d = d -...
Bonjour,
je te propose ma correction.
Sub AnalyseProcessus()
Dim ws As Worksheet
Dim t As Double
Dim v(1 To 4) As Single
Dim i As Long
Set ws = ActiveSheet
t = Timer
' Génération de paramètres pseudo-aléatoires
For i = 1 To 4
v(i) = (Sin(t * i) + 1) *...
Bonjour,
J’ai écrit une macro pour remplir toutes les cellules d’une sélection avec une date calculée automatiquement :
Sub CalculDate()
Dim c As Range
Dim y As Long, m As Long, d As Long
For Each c In Selection
y = Year(Date)
m = ((c.Row * 3 + c.Column *...
bonjour Patrick,
shell.application fonctionne comme l'explorateur windows il prend donc en compte les options d'affichage.
dir est lié au système de fichiers win32 il ne prend pas en compte les options d'affichage.
solution pour moi c'est de dir concaténer & "*" c'est pas une usine à gaz et ça...
bonjour,
le problème n'est pas lié aux String mais au objet qui en vba.net sont des variants et des classes en VBA.
il faut bien considérer qu'en vb.net tout est classe. un string en est une.
il faudrait écrire
set obj.truc=123
ce qui n'est pas possible si truc est un object.
set obj.truc=...
bonjour,
en fait soit je ne mets pas
ClassInterfaceType.AutoDual
et ça fonctionne mais je perds l'intestil, soit je le mets et un object vb.net n'est plus un variant VBA.
j'ai tenté les interfaces vb.net mais rien y fait.
j'ai interrogé différents IA sans succès.
je continue à chercher car...
bonjour,
Ok je regarde pour l'Intesense
[
Imports System.Runtime.InteropServices
<ComVisible(True)>
<ClassInterface(ClassInterfaceType.AutoDual)>
Public Class ClsColumnInfof
Private _ValueMax As Object
Public Property ValueMax As Object
Get
Return _ValueMax...
bonjour quand je dis que tout le monde ne sais pas faire et que très souvent dans une entreprise faut pas ce prendre la tête.
il suffit de faire glisser la barre de défilement horizontal pour que les utilisateurs ne savent plus changer d'onglets 🤣
Imports System.Runtime.InteropServices
Public Class ClsColumnInfof
Private _ValueMax As Object
Public Property ValueMax As Object
Get
Return _ValueMax
End Get
Set(Value As Object)
_ValueMax = Value
End Set
End Property
End...
déjà on peut éliminer le coté VS.
ceci dit la propriété retourne en objet pas une variable classique!
Sub test()
Dim t As New AL7_FDXDLL.clsColumnInfo
t.ValueMin = 10 'la conversion en object est implicite coté vb.net
Debug.Print CDbl(t.ValueMin) ' ou CStr(t.ValueMin)
End Sub
retour à visualiser studio
Va dans fichier ajouter un nouveau projet de type console par exemple. et défini le comme projet de démarrage.
vas dans le propriété de ce nouveau projet et active la référence qui ce trouve dans la solution
dans sub main déclare un instances de ta librairie.
tan...