Résultats de la recherche

Bonjour, j'essaie de lire des données d'une base Oracle avec le script suivant : Private Sub CnxOracle() 'Ajouter référence Microsoft ActiveX pour pouvoir utiliser Objets ADO 'Déclaration de la variable de connexion Dim cnx As ADODB.Connection Set cnx = New ADODB.Connection Dim...

Bonjour, J'essaie de lire un fichier ascii avec Excel. Un des champs est un entier à 16 chiffres Excel effectue automatiquement une conversion de ce champ en notation scientifique par exemple : 1,45062E+15 Si je modifie le format le nombre apparait bien avec 16 chiffres mais il est...

[RESOLU]Re : Définir une formule avec SUMPRODUCT dans du VBA Magnifique ! Merci Pierrejean, j'avais pensé à la traduction français / anglais des fonctions entre Excel et VBA mais pas à la virgule à la place du point virgule dans la formule. :)

Bonjour, Avec du code VBA j'aurais souhaité définir la formule d'une cellule : stFormule = "=SUMPRODUCT(B" & lFirstRow & ":B" & lLastRow & ";I" & lFirstRow & ":I" & lLastRow & ")" sht.Range("B5").Formula = stFormule Qui me donne l'erreur En m'insiprant du sujet...

Re : ListView dans écran mal rafraîchi Merci Gael, je suis passé en UserForm, je n'ai plus de souci, le ListView s'affiche correctement. ;)

Re : Plntage Excel 2003 Merci Klin89. j'ai réussi à sauver mon code en ouvrant le classeur avec macros désactivées. J'essaie de débeuguer avec gestion d'erreurs mais excel plante, avant la gestion d'erreur et m'envoie sur visual studio avec du langage machine en relation avec vbe6.dll. J'ai...

Bonjour, j'ai un classeur excel avec macros qui marche bien. Je le sauve sous un autre nom. Je le ferme. Je le réouvre et il plante à l'exécution de Workbook_Open : Microsoft Excel a rencontré un problème et doit être fermé. La récupération du classeur est impossible, quand Excel essaie...

Re : ListView dans écran mal rafraîchi J'ai trouvé une bidouille moche mais qui marche. A la fin de ma sub Workbook_Open j'ai mis : Windows.Arrange ArrangeStyle:=xlTiled ActiveWindow.WindowState = xlMaximized

Re : fonction replace et cas particulier Bonjour Teter, vous devez utiliser l'option LookAt:=xlWhole comme dans l'exemple suivant : Range("A:A").Replace what:="FR", Replacement:="France", LookAt:=xlWhole ;)

bonjour, à l'ouverture d'un classeur Excel un ListView (6.0) placé dans un onglet s'affiche mal : il est mal dimensionné. Si on actionne la molette de la souris l'affichage se fait correctement. Je cherche une instruction genre Me.Repaint qui existe pour les UserForms pour rafraîchir...

Re : Bonjour à vous Bonjour, bienvenue sur le forum ;)

Re : Bonjour à tous & à toutes Bonjour Mathieu, bienvenue sur le forum ;)

Re : Alimenter ListView avec format des cellules lues Merci beaucoup pour vos réponses. En effet ça marche très bien avec rgData.Cells(lLi, lCol).Text au lieu de rgData.Cells(lLi, lCol).Value Pourquoi n'y ai-je pas pensé ? Bravo ;)

Re : Alimenter ListView avec format des cellules lues j'ai trouvé quelquechose de moche mais qui fait ce qu'il faut que je fasse ;) : Je teste s'il sagit d'un nombre à virgules ou d'un nombre sans virgules ou d'autre chose : vValue = rgData.Cells(lLi, lCol).Value...

Re : Alimenter ListView avec format des cellules lues J'ai attaché un fichier. La fonction Test dans ThisWorkbook alimente le ListView dans shtReservation à partir du range dans shtReference. ;)

Re : Alimenter ListView avec format des cellules lues Merci PierreJean, j'ai un message sur la 25ème colonne; il s'agit d'un nombre à 7 chiffres. En fait NumberFormat me renvoie "General" quelque soit le type lu. NumberFormatLocal renvoie "Standard" quelque soit le type lu. Sinon j'avais...

Bonjour, j'alimente un ListView à partir d'un range de cellules. Je voudrais que le format des valeurs dans le ListView soit le même que celui des cellules lues. Pour ajouter une colonne au ListView j'utilise : lv.ListItems(lLi).ListSubItems.Add , , rgData.Cells(lLi, lCol).Value qui marche...

Re : Retrouver le Name d'un Range Merci pour vos conseils ;)

Re : Retrouver le Name d'un Range J'ai trouvé : le test à faire était : If N.RefersToLocal = MyRange.Name Then Function SearchName(MyRange As Range, Optional bGlobal As Boolean = True) As Name Dim N As Name On Error GoTo error_SearchName If (bGlobal) Then For Each N In...

Re : Retrouver le Name d'un Range Merci JNP; je cherche à savoir parmi les Names du workbook, lequel est défini à partir du range MyRange. Ajouté avec : MyRange.Application.ActiveWorkbook.Names.Add Name:=MyName, RefersToR1C1:=MyRange Je ne vois pas de propriété Intersect aux Names. ;) A...