| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 07/06/2016 à 16:22 | neura | Formule conditionnelle et recherche d'expressions | Esseye avec la méthode "LIKE" if cells/range like "*MotRechercher*" then 'instruction end if... |
| 07/06/2016 à 16:13 | Benoist28200 | Problème Next sans For | Mon niveau vba s'arrête la 8) je te souhaite bonne chance pour la suite... |
| 07/06/2016 à 16:04 | kingjon | Condition nombre a virgule | A tester : dim valeur as integer dim b as boolean valeur = range("A"&1).value b = Cbool (valeur - clng(valeur) = 0) if b then 'le chiffre n'a pas de virgule ( ou b = true si jamais sa marche pas comme sa ) ///// else ' le chiffre contient un virgule /////// end if dim valeur as double petit erreur d... |
| 07/06/2016 à 16:01 | Benoist28200 | Problème Next sans For | Même avec le code ci-dessus ? est-il possible d'avoir un fichier joint pour voir quels est l'erreur ... |
| 07/06/2016 à 15:52 | Benoist28200 | Problème Next sans For | Si sa tien qu'à moi j'aurai changer toute la boucle "for Z" (car je ne m'y connait pas du tout sur les boucle for avec les lettre) et le remplacer par : for z = 5 to 67 If Range("D2").Value = 1 And Range("D3").Value = p Then Sheets("Base de donnée").Select h = Split(Columns(z).Address(ColumnAbsolute... |
| 07/06/2016 à 15:44 | kingjon | Condition nombre a virgule | Je vous propose sa mais je pense qu'on peut toujours trouver plus simple dim b as boolean b = CBool(d - CLng(d) = 0) si "b" retourne vrai => nombre sans virgule si "b" retourne faux =>nombre avec virgule... |
| 07/06/2016 à 15:09 | Benoist28200 | Problème Next sans For | Oui j'ai remarquer sa plus tard enfaite il suffit de changer de + en & et enlever les guillemets sur les chiffres après je pourra pas t'aider plus car j’étais même au courant qu'on pouvais faire une boucle "for" avec des lettre j'étais même pas au courant*... |
| 07/06/2016 à 14:47 | remicousin | Réaliser une Action en Fermant l'userForm | Oui cela est possible , mais on peut avoir un peu plus de détail ? quels autre fenêtre voudriez vous afficher ? sinon il suffit de reféfinir la méthode : UserForm_QueryClose 'ce qui se passe quand on ferme un userform (petit crois rouge, unlaod ...) ps : Bonjour , faudrai peut être commencer par sa... |
| 07/06/2016 à 14:29 | Billou | Problème Recherche d'une valeur avec 2 critères | Prions pour que sa marche pour vous : =RECHERCHEV(B2;KM!B$2:G4899;6;FAUX) de mon coté j'obtient bien ce que vous demander (sous excel 2007) a adapter vu que nous avons pas le même format de tableau voila une solution , je me suis permis d'ajouter une colonne en plus pour simplifier la démarche... |
| 07/06/2016 à 14:02 | Benoist28200 | Problème Next sans For | Teste avec Range("Z"&3) ne pas confondre + et & exemple 1+ 1= 2 1&1 = "11"... |
| 07/06/2016 à 12:40 | Billou | Problème Recherche d'une valeur avec 2 critères | C'est possible de mettre un fichier simplifier en joint (par exemple avec juste les 2 feuille sur lesquelles on copie les valeur et les 10 première ligne de chaque feuille ) ... |
| 07/06/2016 à 12:35 | Benoist28200 | Problème Next sans For | Sur le code fournie en annexe on peut voir 8 "IF" et 1 "END IF" je pense que sa peut poser problème mettre 2 "end if " avant chaque "next p next z" resoudra peut être le problème a tester... |
| 07/06/2016 à 12:30 | Billou | Problème Recherche d'une valeur avec 2 critères | Remplace dans ton formule "A4" par "B4"... |
| 07/06/2016 à 12:09 | Billou | Problème Recherche d'une valeur avec 2 critères | Sous excel 2007 sa marche avec cette syntaxe : =RECHERCHEV(A2;[Classeur1.xlsx]depart!$A$2:$I$28;5;FAUX) la dernière valeur dois toujours être égal à faux ( sinon excel vous trouver des valeur approximatif) essayer d'utiliser l'aide formulaire c'est-à-dire ne pas l'écrire manuellement mais le... |
| 07/06/2016 à 11:58 | Billou | Problème Recherche d'une valeur avec 2 critères | Je pense que la fonction"RECHERCHEV" pourra vous aider voila un lien qui vous montre la syntaxe de la fonction : https://www.excel-pratique.com/fr/fonctions/recherchev je reste a votre disposition pour toute question supplémentaire... |
| 07/06/2016 à 11:54 | Billou | Problème Recherche d'une valeur avec 2 critères | Si j'ai bien compris vous souhaiter prendre tout les valeur de la colone K de la feuille 1 et le repporter sur la colone O de la second feuille ... |
| 07/06/2016 à 11:42 | Billou | Problème Recherche d'une valeur avec 2 critères | Est-ce possible d'avoir un fichier joint ou plus de détail sur le problème car la j'ai un peu de mal a comprendre votre demande... |
| 07/06/2016 à 11:38 | BlueMountain | Sélection de données dans une boucle For Each | ... |
| 07/06/2016 à 11:25 | BlueMountain | Sélection de données dans une boucle For Each | A teste : Worksheets(MaFeuille).Activate sans les guillemets car MaFeuille est une variable String... |
| 07/06/2016 à 09:27 | j.bart | Modif formule module sur VBA couleur/texte | A tester : dim r as range dim mot as String for each r in selection 'faire ta selection de plage mot = left(r.value,2) 'prendre les 2 première lettre de la cellule if ucase(mot) = "AB" then ' ucase pour eviter la casse (si c'est vraiment "AB" que tu veut il suffit d'enlever ucase 'faire les couleur... |
| 06/06/2016 à 14:04 | kingjon | Creer bouton en VBA | Sinon tu a la solution suivant : crée un bouton et lui affecter un macro le tout manuellement avec l'enregistrement de macro ensuite il te reste plus qu'à consulté la macro généré et trouver le boue de code qui permet d'affecter un macro à un bouton... |
| 06/06/2016 à 10:54 | kingjon | Creer bouton en VBA | Voila ce que je te prose j'espère que cela peut t'être utile : Dim Obj As Object Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _ Link:=False, DisplayAsIcon:=False, Left:=200, Top:=100, Width:=100, Height:=35) Obj.Name = "BoutonTest" ActiveSheet.OLEObjects(1).Object.Caption... |
| 06/06/2016 à 10:37 | kingjon | Creer bouton en VBA | Oui c'est possible, il suffit de crée un bouton dans la fenêtre mode développeur, ensuite associer un macro a ton bouton... |
| 06/06/2016 à 10:29 | TBG | Copier/Coller de(s) lignes(s) au choix | Le code que j'ai fourni en haut te permet de faire ta sélection manuellement. j'aimerai savoir comme tu voudrai coller t'es donnée ( dans un tableau comme celui donner en exemple, sur une feuille vierge ...)... |
| 06/06/2016 à 10:22 | TBG | Copier/Coller de(s) lignes(s) au choix | C'est un code a compléter... |
| 06/06/2016 à 09:55 | TBG | Copier/Coller de(s) lignes(s) au choix | A tester : dim r as range for each r in selection 'Copier/Coller next r... |
| 06/06/2016 à 09:28 | alcibiade | Récupérer des données d'une chaine | A tester : =GAUCHE(A1;cherche(".";A1;1)) et tu tire la formule... |
| 03/06/2016 à 14:11 | j.bart | Nombre de premiers symboles de cellules | & : concatenation "*" : n'importe quels symbole (lettre, chiffre , vide ...si je ne me trompe pas)... |
| 03/06/2016 à 14:01 | j.bart | Nombre de premiers symboles de cellules | En vba on peut initier des paramètre avec exemple :"Inputbox" pour varier les zones, une fois la macro effectuer il suffit de l'associer a un raccourci (exemple : ctrl + n). les cellules sont a rentrer directement dans le module vba ou avec l'utilisation des "inputBox", pour combiner avec autre chos... |
| 03/06/2016 à 12:30 | geeknbuzz32 | Réalisation de gestion de stock | Sur les UserForms il manquera quelque bouton du genre valider,annulé ou autre pour indiquer que les champs sont rempli et de continuer l'exécution. ton userForm s'appel "userForm1" et non "Formulaire_stock" (sauf si tu a faire des modification derière) dans le code, après le "Load Formulaire_stock"... |
| 03/06/2016 à 12:18 | Haracnico | [Macro] Incrémenter un tableau | Dr et j'espère que sa marche pour vous... |
| 03/06/2016 à 12:10 | j.bart | Nombre de premiers symboles de cellules | Je te propose le code suivant à tester : Sub test() Dim ligneMax As Integer Dim mot As String nbM = 0 nbME = 0 nbS = 0 nbB = 0 ligneMax = Range("B" & Rows.Count).End(xlUp).Row For i = 1 To ligneMax 'de la 1er ligne jusqu'au dernier ligne non null mot = UCase(Left(Cells(i, 2).Value, 2)) ' mettre tout... |
| 03/06/2016 à 11:29 | Haracnico | [Macro] Incrémenter un tableau | A tester : ligne = Range("A" & Rows.Count).End(xlUp).Row + 1 For i = 1 To 4 WorkSheets(nom de ma feuille depart).Cells(2, i) = WorkSheets(nom de la feuille d'ariver).Cells(2, i) ' ou WorkSheets(nom de la feuille d'ariver).Cells(ligne,i) Next i on peut aussi remplacer "2" par "Range("A" & Rows.Count)... |
| 03/06/2016 à 10:26 | geeknbuzz32 | Réalisation de gestion de stock | Une base de donnée sous accèss est en effet une idée pour facilité les recherche, et les modification avec quelque requête SQL mais n'est pas obligatoire. en ce qui concerne le cloud, il faudra attendra un pro excel, je n'y connais pas assez pour vous donnée un réponse utile... |
| 03/06/2016 à 10:00 | geeknbuzz32 | Réalisation de gestion de stock | Pour le formulaire , il vous suffira de créer un "userForm" avec plusieurs bouton (enregistrer, recherche si besoin, ect....) avec chaque bouton la fonction que vous souhaiter. pour ce qui concerne les recherche, vous pouvez utiliser une boucle for sur tout les feuille (ce n'est pas le plus optimise... |
| 03/06/2016 à 09:52 | Haracnico | [Macro] Incrémenter un tableau | Tu voudra juste copier une ligne en particulier(si oui quels est la condition) ou toute les ligne de la 1er feuille ... |
| 02/06/2016 à 16:37 | Haracnico | [Macro] Incrémenter un tableau | Pour l'incrémentation automatique vous avez la fonction "Range("A" & Rows.Count).End(xlUp).Row + 1" mais sa serai vraiment plus facil si vous pourriez joins les fichiers... |
| 02/06/2016 à 16:15 | Haracnico | [Macro] Incrémenter un tableau | Tu veut qu'à chaque que tu lance ta macro, la ligne est incrémenter automatiquement ... |
| 01/06/2016 à 16:31 | kellyby | Remplir tableau en fonction d'autres cellules | Je sais pas si cela peut vous aider mais vous pouvez esseyer avec la fonction "RECHERCHEV" a condition que les 2 classeur soit ouverte... |