Profil de Alboure - CodeS SourceS

LES STRINGS EN C++ [VC++; G++]

/source/16633-les-strings-en-c-vc-g

Et comment fait on pour comparer un bout de string comme avec strncmp?

Pb avec selection.end(xldown).select

Bonjour, je travaille sur Excel 2002. A moment donné dans mon code, j'écrit: Range("A1").select If Activecell.Offset(1,0).value "" then Selection.End(xlDown).select End if Cela fonctionnait très bien, ca me plaçait bien sur la dernière cellule occupée de ma colonne A. Par contre si je masque les lignes et que je lance ... Lire la suite

Ca fait pareil :(

Arrondis aux multiple

Bonjour, J'ai besoin de reproduire enVBA les fonctions d'excel MROUND et PLAFOND MROUND permet d'arrondir un nombre au multiple le plus proche d'une valeur MROUND(4514;10) = 4510 MROUND(4515;10) = 4520 PLAFOND permet d'arrondir au multiple supérieur PLAFOND(4514;10)=4520 Je recherche le code VBA pour faire la même chose si quel... Lire la suite

Bonjour, tu peux utiliser l'enregistreur de macros. Si tu ne sais pas comment il faut faire, voici une explication: -Outils>Macros>Nouvelle macro Puis tu met tes fonctions sur ta feuille excel et tu arretes l'enregistreur. Tu vas ensuite dans VBA et tu auras ta fonction traduite en vba.

Tester l'existance d'une base Résolu

Salut je cherche comment savoir si la base (fichier access) est bien présente afin de pouvoir travailler dessus et éviter les plantages. merci d'avance

Votes

Salut Voila un fonction qui marche avec tous les types de fichiers, pas seulement access. Public Function FichierExistant(Fichier As String) As Boolean If Dir(Fichier, vbHidden) "" Then FichierExistant = True Else FichierExistant = False End If End Function

Retour de fonction Résolu

Bonjour je voudrai savoir comment faire pour renvoyer un variable d'un type quelconque !! Par exemeple : Function Cherger() As String ..... 'retour de fonction symbolisé par ? End Function

Ce n'est pas obligé en VB6, si on utilise Call, on doit mettre les paramètres entre parenthèses, si tu ne veux pas l'utiliser, tu mets le nom de la procédure, un espace et les paramètres

Bonjour, tout d'abord pour une fonction: function truc (paramètres) as type_retour truc=... 'Retour de la fonction end function Puis pour appeler une procédure Proc: Proc paramètre1,paramètre2,... ou Call Proc(paramètre1,paramètre2,...)

CheckBox / Case à cocher Résolu

Bonjour, Voila, je souhaite ajouter une valeur dans une textebox lorsque je coche ma case à cocher. De plus, la valeur entrée doit être protégée/ La ligne de commande que j'utilise et qui fonctionne est la suivante : Private Sub CheckBox1_Click() If CheckBox1.Enabled = True Then TextBox1.Value = "TEST" TextBox1.Locked = True Else... Lire la suite

Votes

Bonjour, remplace enabled par value.

VBA Excel : Limiter la saisie sur plusieurs TextBox d'un UserForm

Bonjour, Je suis un peu Novice. J'ai un formulaire sur lequel il y a une centaine de TextBox que j'aimerais limiter à l'insertion de nombres. Le problème, c'est que je ne me vois pas insérer dans mon programme 100 procédures du type : "Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)If Chr(KeyAscii) "." T... Lire la suite

Bonjour, tu peux laisser rentrer les données dans le formulaire et tester sur un bouton valider: Private Sub bt_valider_Click() Dim badval As Boolean badval = False For Each ctl In Me.Controls If Left(ctl.Name, 4) = "Text" Then ctl.Text = Replace(ctl.Text, ".", ",") If Not IsNumeric(ctl.Text) Then ...

programmation VBA Résolu

Bonjour, Je suis quasiment débutant sur Visual Basic Application Excel . Je suis en train d'essayer de faire des interfaces conviviales et claires pour le futur utilisateur du programme et j'aimerais, dans la mesure du possible, avoir des précisions et des éclaircissements sur plusieurs points: 1) Pour rentrer les éléments dans une zo... Lire la suite

Bonjour, 1) tu peux aussi faire: combobox1.rowsource = "A1:A5" 'si les données à rentrer sont stockées dans ces cellules. 3)J'imagine que tu parles de: textbox1.setfocus 'à placer dans le code du bouton

Automatiser la récupération d'une zone de liste

Bonjour, Je suis sur VBA Access et j'ai la ligne de commande suivante:If Modifiable11.Visible True And Modifiable11.Enabled True Then 'si la zone de liste et visible et active Modifiable11.SetFocus 'alors j'y active le focus d11 = Modifiable11.text ... Lire la suite

Ben la je vois pas , ca devrait marcher. Par contre tu vas déclarer une variable pour chaque case du tableau ? Ca risque d'être long...

Ola ben la je comprends pas parce que j'ai déjà mis en public quasiment tout ce qui n'est pas autorisé alors, et ca marche tres bien. Montre un peu ton code au cas où.

Tu vires Dim d(11) As String et tu mets Public d(11) as string en haut d'un module à l'extérieur de toute fonction et hop, ca te fais une variable globale et t'y a accès de partout.

Public sub nom_procedure (parametres) Dim d(11) As String For Each Control In Controls If Left(Control.Name, 10) = "Modifiable" Then If Control.Visible True And Control.Enabled True Then Control.SetFocus d(Right(Control.Name, Len(Control.Name) - 10)) = Control...

A part le probleme de type qui en effet bug comme je l'avais mi, le reste fonctionne tres bien chez moi, par contre je suis pas sûr d'avoir compris ta réponse. Tu veux dire que d n'a que 11 possibilités comme je l'ai mi c'est ca? Si oui tu peux faire un redim preserve quand tu rencontres un numéro supérieur dans le nom du contrôle. ...

Bonjour, tu peux utiliser un tableau pour remplacer ta variable qui doit s'incrémenter et à l'indice correspondant au nombre dans le nom de la liste deroulante, on range sa propriété Text. Dim d(11) As integer For Each Control In Controls If Left(Control.Name, 10) "Modifiable" and Control.Visible True And Control.En...

Problème au niveau de vba avec excel pour bouton

Bonjour, je suis comptable d'une société et je travaille sur la gestion des articles que l'on vend. Nous vendons à peu près 200 articles par an. J'ai donc créé un fichier excel avec notre stock sur une feuille puis après la vente, je le transfere sur une autre feuille. Mon problème est que je met en place une feuille ACCUEIL qui ... Lire la suite

Bonjour, il faut ouvrir l'éditeur Visual Basic, double-cliquer sur ThisWorkbook à gauche, sélectionner Workbook et sheetselectionchange en haut, et il y a ca qui apparait: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) End Sub Il faut mettre à l'intérieur: Range("A" & target.row & ":K" &...

ADODB.connection

Bonjour à ts slt, j sui un débutant en VB, j'ai un petit problème pour avoir l'accés à une base de donnéés Access : qd j'entre le code suivant: Dim cn As .......... cà ne me donne pas ADODB ds la liste. faut il q j'ajoute d'autre composants pour l'avoir ?,.... et Merci d'avance

Bonjour, oui tu dois ajouter la référence Microsoft Activex data objects 2.7 library. Pour moi c'est la 2.7 la plus récente après je ne sais pas s'il y en a d'autres. Alboure

Détection d'appui sur "Entree"

Bonjour, J'ai un formulaire avec pleins de textbox, je veux que quand j'appuie sur "entree", le curseur aille dans une autre textbox, pour cela, j'ai testé: Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 10 Then ... End If End Sub Mon problème est donc de détecter l'appui sur "... Lire la suite

C'est bon merci, quelqu'un m'a apprit un moyen bien plus simple pour faire ce que je veux, yavait juste à changer les tabindex des controles du formulaire. Alboure

Ok merci, par contre avec l'evenement keypress, dans lequel j'ai mi un msgbox juste pour voir si ca marche, que je test ou pas que ce soit la touche "entree", il se passe rien. Donc si vous savez comment faire, je suis preneur. Merci Alboure