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...

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...

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...

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...

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...

bonjour, j'ai développé une petite fonction qui permet de retrouver le premier Name défini sur un range passé en paramètre : 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...

Bonjour, dans une macro je passe un onglet en paramètre et la macro effectue des opérations sur des contrôles de cet onglet. Je n'arrive pas à accéder aux contrôles, j'obtiens le message L'accès à la zone de noms TradeDate marche bien. Par contre l'accès au ComboBox...

Bonsoir, je n'arrive pas à trouver la manière de nommer une procédure qui s'exécuterait à l'ouverture d'un formulaire ouvert depuis vba par : frmNom.Show J'ai essayé dans le code du formulaire des syntaxes telles que : Private Sub Form_Open() Private Sub Form_Load() Si quelqu'un a...

Bonsoir, J'essaie de définir un range à partir de cellules situées dans un classeur distant de celui où le code s'exécute. shtSource désigne l'onglet du classeur distant. Set rgBegin = shtSource.Range("A1") Fonctionne bien et on peut accéder sans souci à rgBegin.cells(1,1).value par...

Bonjour, Le code suivant met à jour un graphique : Function refreshGraph(Graph As ChartObject, stNom As String, _ rgX As Range, rgY As Range, rgXPtSup As Range, rgYptSup As Range) As Boolean Dim l As Long Dim sSerie As Series On Error GoTo error_refreshGraph 'Mise à jour...

[RESOLU]pb récupérer les lignes des commentaires d'une cellule avec Split Bonjour, j'essaie de récupérer les lignes des notes d'une cellule. Dim stTableau() As String stTableau = Split(rg.Comment.Text, vbCrLf) rg est un Range. Il y a du texte avec des sauts de ligne dans...

[RESOLU]Comment savoir si autofiltre mis ? Bonjour, quelqu'un sait-il comment détecter en VBA que l'autofiltre est mis ? Je n'arrive pas à trouver. Merci beaucoup. :)

Bonjour, j'ai un ListBox dans un onglet qui est alimenté par ListFillRange. A l'ouverture du classeur aucun élément du ListBox n'est visible. Quand on clique sur un autre onglet puis qu'on revient sur l'onglet du ListBox, son contenu est bien affiché. Je cherche une manière de rafraîchir...

Bonsoir, j'utilise un ListBox que je charge en utilisant ListFillRange où je désigne un nom de plage. Tout ce passe sauf que le Listox ne charge que 5 lignes maximum de la plage. Si quelqu'un sait quel paramètre du Listox je pourrais modifier (je ne vois pas de valeur à 5), ça m'aiderait...

Bonjour, je cherche à obtenir le nom du classeur à partir d'un range situé dans ce classeur. Quelqu'un sait-il comment faire ? Merci. :)

[Resolu][vba]Erreur sur ajout de code dynamique Bonjour, après l'insertion automatique d'un onglet, j'essaie de lui ajouter du code avec la procédure suivante : Public Sub AjouteCodeAOnglet(MyOnglet As String) 'Ajoute la procédure dans la feuille Dim NomVb As String...

Bonjour, sur le modèle du sujet suivant, je souhaiterais afficher un message avant suppression d'une ligne ou d'une colonne. Je cherche l'équivalent pour une ligne ou une colonne de l'ID 847 qui désign la suppression d'une feuille qui figure dans les procédures et . Merci :)

bonjour, je souhaite mettre en place un SUMIF qui cherche des valeurs comprises entre deux bornes (et pas égales à une valeur comme le SUMIF "standard"). J'utilise la forumule suivante : =SUMIF(A:A;AND(A:A>=ROUND(B1;0);A:A<=ROUND(B1;0)+1);A:A) Pour obtenir la somme des valeurs de la...

bonjour, j'aimerais bien définir une valdiation sur une cellule à partir de cellues qui sont dans un autre onglet. J'essaie d'éxécuter : Public Sub MetValidation(Onglet As String) With Selection.Validation .Delete .Add Type:=xlValidateList...