I

Jeune membre

Inscrit le :19/04/2007
Dernière activité :18/05/2009 à 20:35
Messages
31
Votes
0
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par IBegin

DateAuteur du sujetSujetExtrait du message
18/05/2009 à 20:35IBeginIF avec des conditions AND et ORMerci d'avoir pris le temps de répondre. En fait, j'avais un peut trop simplifié et dat_ech est une variable contenant une date. J'ai contourné le problème en faisant deux if imbriqués, un avec les deux OR et un pour le AND. C'est moins joli, mais ça marche ! A plus...
18/05/2009 à 16:12IBeginIF avec des conditions AND et ORJe souhaite faire un if, avec deux conditions en OR et une en AND, et j'ai pas l'impression que ça marche ! Pour l'instant je mets : If Sheets("Stockage").Cells(i, j).Value = "fin" Or Sheets("Stockage").Cells(i, j).Value = 1 _ And Sheets("Stockage").Cells(i, j + 5).Value = ech_couv Then 'En fait il...
15/11/2007 à 11:44IBegin [VBA] Focus / SelectImpecc, merci ! seul petit détail (sans grande importance) c'est qu'après, il faut que j'appuis sur espace pour faire l'équivalent d'un click, mais je préfèrerais Entrée. Une idée ? Merci...
15/11/2007 à 10:58IBegin [VBA] Focus / SelectJ'ai un souci avec le code pour faire prendre le focus à un bouton "valider" que j'ai mis dans une feuille de mon doc. En gros, je voudrais que lorsque l'utilisateur a remplit le dernier champs de mon formulaire, le focus passe alors au bouton valider, qu'il n'ait plus qu'à faire entrée. Je sais pas...
14/11/2007 à 14:59IBegin[VBA] selection d'une plage de celluleBen j'avais bien essayé cette solution, mais ça me marque référence de tri non valide ...
14/11/2007 à 14:28IBegin[VBA] selection d'une plage de celluleEst-il possible de selectionner une plage de cellule, sans faire appel à range, mais plutot avec cells En effet, pour utiliser range, il faut changer de page : Sheets(2).select Range("A1:B6").select Alors qu'avec cells, non, ce qui m'arrangerait !!! C'est pour faire un tri par ordre alphabétique de...
14/11/2007 à 14:18IBegin [VBA] Déclenchement d'une macroPour info, j'ai trouvé : à mettre dans le code de la page concernée...
12/11/2007 à 17:05IBegin [VBA] Déclenchement d'une macroJ'aimerais déclancher l'éxecution d'une macro après que l'utilisateur ait changer la valeur d'une cellule. C'est possible ? Merci ! A+...
12/11/2007 à 15:12IBeginListe déroulante avec données variablesMerci à tous les deux, pour vos lumières. La solution de Dre marche bien, même si malheureusement je ne comprends rien aux formules utilisées !!! A +...
12/11/2007 à 10:28IBeginListe déroulante avec données variablesJe voudrais faire une petite aplication de gestion de stock, et j'ai un souci de liste déroulante. Ma question est dans le fichier excel : https://www.excel-pratique.com/~files/doc/stocks.xls En vous remerciant par avance, A +...
28/08/2007 à 12:47IBegin[VBA et Excel] Deux questionsJ'ai une première question qui concerne une formule excel : Je stocks des données de production chaque jour, mais je n'enregistre pas la date mais un code date (aaaa/numsemaine-joursemaine), afin de pouvoir comparer deux années. J'aimerais tout de même avoir une formule me permettant de retrouver la...
27/07/2007 à 11:15IBegin[VBA] Rupture d'un boucle forMerci beaucoup ! ça marche avec exit for A plus...
27/07/2007 à 10:51IBegin[VBA] Rupture d'un boucle forJ'ai une boucle for que je voudrais pouvoir interrompre si une variable donnée prend la valeur 4. For j = 3 To 6 Step 3 'on parcour toutes les lignes For i = 5 To 30 If nbrcopie = 4 Then MsgBox ("Il y a plus de 3 produits en promotion, c'est pas prévu dans mon programme !") BREAK End If 's'il y a qu...
19/07/2007 à 13:33gelonleupIncrémentation horizontaleJe connaissais pas l'astuce du double click, c'est très pratique ! a+...
18/07/2007 à 15:37pier.antoineRecopier le contenu de cellule - MacroC'est ça ! ben ça peut aller asser vite, tu défiles avec la flèche du bas, et tu suppr à chaque fois que la cellule est vide ! Mais il y a surement un autre moyen, que je ne connais pas ! Bon courage...
18/07/2007 à 14:04BEURETSuppression ligneRe, ça sera mieux ! Private Sub CmdEffacer_Click() ActiveCell.EntireRow.Delete Shift:=xlUp End Sub +...
18/07/2007 à 13:57pier.antoineRecopier le contenu de cellule - MacroDu fait que c'est un fichier word copier en excel, les cellules vides ne sont pas vraiment vides, du coup je n'arrive pas à faire les choses bien ! Pour que ça marche, il faut passer un premier coup dans chaque cellule vide et appuyer sur suppr/del. Pas idéal donc, mais c'est peut être moins chiant...
18/07/2007 à 13:06BEURETSuppression ligneTu crées un bouton qui s'appelle par exemple CmdEffacer. et tu mets ça : Private Sub CmdEffacer_Click() Selection.Delete Shift:=xlUp End Sub Si pas clair, je te mets le fichier https://www.excel-pratique.com/~files/doc/effacer.xls A +...
17/07/2007 à 12:12IBegin[Graphique]Impeccable, merci ...
17/07/2007 à 09:32leelouVBA et recherche croiséeSi j'ai bien compris ce que tu voulais ! https://www.excel-pratique.com/~files/doc/YQilsexemple_cas.xls A+...
17/07/2007 à 09:06IBegin[Graphique]Le voilà ! https://www.excel-pratique.com/~files/doc/Indicateur_ligth.xls En espérant que cela t'aidera, Merci...
16/07/2007 à 19:25CallouCode VBA pour un classeur assez lourdJ'ai vu une petite erreur dans une déclaration de variable alors je reposte, avec des commentaires pour une meilleure compréhension Sub ReportFeuille() Dim don don = "Rupture" 'coquille dans la version précédente ! Dim jcde jcde = 4 'on défini le nombre de feuille de ton doc Dim Nombre Nombre = Work...
16/07/2007 à 18:09CallouCode VBA pour un classeur assez lourdSi j'ai bien compris ton problème, ça donnerait ça : Sub ReportFeuille() Dim don don = "Rupture" Dim jcom jcde = 4 Dim Nombre Nombre = Worksheets.Count Nombre = Nombre - 1 While Not Sheets("Cde").Cells(jcde, 1).Value = "" jcde = jcde + 1 Wend For numfeuil = 1 To Nombre Step 1 For i = 4 To 150 If She...
16/07/2007 à 17:24IBegin[Graphique]Je cherche à créer un graphique avec 3 sources de données : 1) des heures d'employés en CDI 2) des heures d'intérimaire 3) une quantité de produit fabriqués Sachant que je voudrais que les heures 1 et 2 soient en histogramme empilé (pour avoir les heures totales) et que le 3 soit une courbe. J'arriv...
09/05/2007 à 12:16IBeginConcatenerMerci ...
09/05/2007 à 09:12IBeginConcatenerDans la cellule C17, j'ai : "test" Dans la cellule H17, j'ai : =17 dans une autre cellule, j'ai : =CONCATENER("C";H17) et cette cellule me renvoit C17. Question : est-il possible que cette cellule me renvoit la valeur de la cellule (en l'occurence, test) Merci d'avance...
07/05/2007 à 18:41IBegin Somme SiMerci pour vos réponses, ça marche ...
07/05/2007 à 17:20IBegin Somme SiC'était pour savoir si on pouvait faire une somme.si avec deux conditions ? Exemple, Valeur Commission 100 000 7 000 200 000 14 000 300 000 21 000 400 000 28 000 j'ai essayé =SOMME.SI(A2:A5;ET(">100000";"<400000");B2:B5) mais ça ne marche pas !!! Si vous avez des solutions, je suis preneur ! M...
19/04/2007 à 15:18IBeginNuméro de semaineRe, Pour info, j'ai trouvé en bidouillant, ça donne : Sub test1() ' Range("D7:D60").Select Selection.Copy Sheets("Stockage 2007").Select Dim curseur curseur = Sheets("Stockage 2007").Range("C1").Value Sheets("Stockage 2007").Cells(curseur, 1).Select 'Range("A3").Select Selection.PasteSpecial Paste:=...
19/04/2007 à 11:36IBeginNuméro de semaineMerci beaucoup, c'est impec ! Sinon, pour cette histoire de colonne, je pourrais faire la saisie en vertical sur une page spéciale (je suis obligé), et ensuite faire une macro qui copie et qui colle en transposé sur une autre page, mais mon souci c'est qu'il faudrait pas qu'elle colle toujours au mê...
19/04/2007 à 10:05IBeginNuméro de semaineJe suis à la recherche d'une formule qui, pour une date donnée (par exemple le 04/01/2007), me renvoit le numéro de la semaine correspondante (dans ce cas, c'est facile, c'est 1). J'ai trouvé une formule qui me renvoit le numéro du jour de la semaine JOURSEM(), mais c'est pas exactement ce que je ve...