293 résultats trouvés

par Rag02700
28 juin 2019, 19:40
Forum : Excel - VBA
Sujet : MFC avec boîte de dialogue
Réponses : 14
Vues : 188

Re: MFC avec boîte de dialogue

Hello,

Tu as déja pas mal d'option dans la MFC sans formule, cela ne correspond pas à ton besoin ?

https://www.excel-pratique.com/fr/cours/excel_mises_en_forme_conditionnelles.php

R@g
par Rag02700
26 juin 2019, 19:39
Forum : Excel - VBA
Sujet : (VBA) Alimenter un array sous condition
Réponses : 2
Vues : 86

Re: (VBA) Alimenter un array sous condition

Merci je vais étudier ça demain :wink:
par Rag02700
26 juin 2019, 17:27
Forum : Excel - VBA
Sujet : (VBA) Alimenter un array sous condition
Réponses : 2
Vues : 86

(VBA) Alimenter un array sous condition

Hello le forum, J'aimerai alimenter une une listbox via un array. dim BD() BD = f.Range("A6:AI" & f.[H65000].End(xlUp).Row).Value Cependant, via cette manière, j'ai toute ma plage... Mon objectif est d'alimenter mon array uniquement si la colonne 18 est <> de rien... comme ceci dans ma listbox j'aur...
par Rag02700
15 juin 2019, 16:49
Forum : Excel - VBA
Sujet : Envoi de mail avec pièce jointe
Réponses : 2
Vues : 83

Re: Envoi de mail avec pièce jointe

Hello, à tester (cocher la réfenrence outlook library avant) : Dim ObjOutlook As New Outlook.Application Dim oBjMail Dim Nom_Fichier As String Dim Fichier_Prendre As String i= 2 while activesheet.cells(i,3).value <> "" Nom_Fichier = activesheet.cells(i,4).value With oBjMail .To = activesheet.cells(i...
par Rag02700
15 juin 2019, 16:40
Forum : Excel - VBA
Sujet : Freezer une colonne et fermer le classeur en sauvegardant
Réponses : 3
Vues : 80

Re: Freezer une colonne et fermer le classeur en sauvegardant

Hello, dsl du retard

à tester

set Source = Workbooks.Open(fichier)

R@g
par Rag02700
12 juin 2019, 20:36
Forum : Excel - VBA
Sujet : Freezer une colonne et fermer le classeur en sauvegardant
Réponses : 3
Vues : 80

Re: Freezer une colonne et fermer le classeur en sauvegardant

Hello,

à tester :
Source = Application.Workbooks.Open(fichier)

For Each feuille In Source.Worksheets
If feuille.Name <> "Date effet Res Fisc CRS" Then
	feuille.Activate
	feuille.Range("B1").Select
	ActiveWindow.FreezePanes = True
End If
Next feuille
Source.Close True


R@g
par Rag02700
10 juin 2019, 12:49
Forum : Excel - VBA
Sujet : Information sur macro
Réponses : 3
Vues : 48

Re: Information sur macro

Hello, Une macro a-t-elle un nombre de lignes limité ? La réponse est oui mais les graphiques ne sont en place, ils bougent, donc plus de mise en page. Y a-t-il un moyen de figer les graphiques. Pas compris... Existe-t-il une procédure pour que ma première macro appelle la deuxième macro. La fonctio...
par Rag02700
6 juin 2019, 21:09
Forum : Excel - VBA
Sujet : Afficher la date de chaque jour en fonction du numéro de la semaine
Réponses : 4
Vues : 73

Re: Afficher la date de chaque jour en fonction du numéro de la semaine

Hello, En admettant que ton numéro de semaine soit en A2 ; que le jour de la semaine soit en B2 (Le lundi) tu peux indiquer cette formule dans la cellule C2 : =7*A2+DATE(ANNEE(AUJOURDHUI());1;1)-JOURSEM(DATE(ANNEE(AUJOURDHUI());1;3))-3 Puis pour mardi cette formule : =C2+1 Recopie incrémentée jusqu'...
par Rag02700
1 juin 2019, 20:17
Forum : Excel - VBA
Sujet : Crée un bouton pour copier des cellule ( pas coller )
Réponses : 3
Vues : 32

Re: Crée un bouton pour copier des cellule ( pas coller )

Hello,

code à placer dans un module puis affecter la macro "Copie_La_Selection" au bouton :
Sub Copie_La_Selection ()
	Selection.copy
end sub
Sélectionne une ou plusieurs cellule(s) et appuie sur le bouton.

R@g