Résultats de la recherche

Bonjour ou rebonjour à tous je suis en train de me battre avec un code VBA : Sub couleurs() Dim cel As Range Dim a, x As Integer a = Range("B65536").End(xlUp).Row Range("A1:H1").Interior.ColorIndex = 38 For x = 2 To a If Range("B" & x) = Range("B" & x).Offset(-1, 0) Then 'on garde la même...

Bonjour tout le monde voilà, j'ai un début de formule qui fonctionne comme je veux : =SOMMEPROD(((Janvier!C4:C20=Données!B2)*((Janvier!D4:D20)+(Janvier!E4:E20)))+((Février!C4:C20=Données!B2)*((Février!D4:D20)+(Février!E4:E20)))) le souci est que je souhaite continuer jusque décembre donc vous...

Bonsoir le forum je sèche depuis plus d'une heure sur qqchose qui me parraissait pourtant simple : comment écrire en VBA : Range("N" & x) = Range("N" & x).Value + la somme de O&x à W&x Ca doit être tout simple mais là je pêche merci a vous et très bonne soirée

Bonjour le forum, Après quelques d'absence je reviens vers vous Voilà : J'ai créer une application pour une collègue sur XL2003 qui fonctionne a merveille Par contre elle utilise XL2000 et il y aurait quelques bugs Je recherche donc quelqu'un sous 2000 qui pourrait me tester mon appli et...

Bonsoir le forum :( toujours pas d'accès au ancien post sniff !! Bon voilà j'ai un 1er combobox jusque là tout va bien on va dire liste1,liste2 liste3, liste4 j'aimerais pouvoir avoir comme rowsource dans mon 2ème CBox la valeur de mon 1er CBox si je choisis Liste3 dans mon 1er avoir la...

Bonjour à tous et toutes Après avoir fouillé les anciens posts j'ai décidé de faire apparaitre un message d'attente sous la forme d'un UserForm non modal plutot qu'une barre de progression pendant l'exécution d'une macro Donc ma procédure est la suivante : Choix du mois puis validation par un...

Bonjour le forum j'ai cette procédure Sub analyse_mensuelle() Application.ScreenUpdating = False Sheets("Gest Mens").Range("B6:H100").ClearContents Dim agent, D As Range Dim a, C, ADRES For Each agent In Sheets("Données").Range("C2:C" & Sheets("Données").Range("C65536").End(xlUp).Row) With...

Bonjour le forum j'ai cette procédure : Sub analyse_mensuelle() Application.ScreenUpdating = False Sheets("Gest Mens").Range("B6:H100").ClearContents Dim agent, D As Range Dim a, C, ADRES For Each agent In Sheets("Données").Range("C2:C" & Sheets("Données").Range("C65536").End(xlUp).Row) With...

Bonjour tout le monde Petite question technique Je me suis créer un répertoire dans mes favoris pour garder l'adresse de certains anciens post utiles de ce genre : Lien supprimé Depuis le nouveau forum impossible de retrouver ces adresses voilà le message que le forum me r&mène : Cette page est...

Bonjour a tous, après quelques temps passé sur les anciens post et sans résultats, est il possible de bloquer l'exécution de mes macros quand on les lance par ALT et F8 car je fais des copies de mon classeur mais je ne souhaite pas que mes gars puissent y accéder autrement que par les...

Bonjour le forum j'ai en fin d'une procédure ce code : je démarre avec le classeur : 'Récap.xls' analyse de tous les fichiers du répertoire ....... nomfich = newclass.Name newclass.Close False ActiveWorkbook.SaveAs Filename:=chemin & '\\' & nomfich, FileFormat:=xlNormal Ici je...

Bonjour le forum voilà j'ai 27 commandbutton de A a Z plus 1 pour la totalité de ma feuille puis une mise a jour de ma listbox avec ce code: (affichage alpha suivant le nom) Private Sub CommandButton4_Click() ListBox1.Clear Dim j, c As Integer Dim cel As Range ListBox1.ColumnCount = 3...

Bonjour le forum malgré tous les post traitant le sujet, j'ai pas trouvé mon bonheur au départ ça me sembalit pourtant simple :( Comment mettre dans un textbox un format hyperlien TextBox3 = Range('E' & ListBox1.ListIndex + 3) ex :('E' & ListBox1.ListIndex + 3 = toto@aol.com J'en...

Bonjour le forum Une nouvelle fois ai besoin d'aide dans ce code : Sheets('Données').Select ActiveWindow.SelectedSheets.Delete Sheets('Résultats').Select ActiveWindow.SelectedSheets.Delete Windows('Récap.xls').Activate Sheets('Données').Select...

Bonjour le forum j'ai un soucis que je ne m'esplique pas je fais un copier coller en VBA et ma macro bugge sur Paste special With Sheets('Feuil1') b = Range('A65536').End(xlUp).Row + 1 .Range('A' & b).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False...

Bonsoir le forum bien que j'avance petit a petit, j'ai encore des soucis !!! extrait de code : Set newclass = classeurs Workbooks.Open newclass Sheets('Résultats').Range('copie_résult').Select Selection.Copy Windows('Récap.xls').Activate Sheets('Résultats').Select Range('E7').Select...

rebonjour le forum j'ai un classeur avec une macro que je recopie avec nouveau nom lors du lancement je fais plusieurs aller-retour de ce classeur vers un classeur de base(base) Windows('monclasseur.xls').Activate bla bla bla Windows('base.xls').Activate bla bla bla...

Bonjour le forum j'ai un souci de formule je souhaite faire la somme d'une colonne avec un nombre de valeur inconnue j'ai réussi a sélectionner la 1ère valeur avec cette formule =DECALER('332'!W1;2;C6-2004) je décale a partir de W1 de 2 lignes et je décale de C6-2004 colonnes (içi 0)...

Bonsoir a vous le forum je me prends la tête avec ce code : Private Sub TextBox11_AfterUpdate() If Not IsDate(TextBox11) Then MsgBox 'Erreur de format sur la date de naissance', vbCritical, 'ATTENTION' TextBox11 = '' TextBox11.SetFocus Exit Sub End If TextBox11 = Format(TextBox11...

Bonjour le forum malgré quelques recherches sur les anciens posts, je reste sans réponses explications: textbox10 = 08/10/19962 j'aimerais avoir en Textbox11 = Now - Textbox10 soit = 43 (en idéal) ou 44 Ai fait plusieurs essais mais aucun résultat concluant merci pour la syntaxe correcte