XL 2007 macro pour reinitialiser en gris mes boutons sujet

bonjour à tous j'ai grâce à beaucoup de personnes pu arriver à mon projet
je bloque sur la macro qui s appel GRIS qui permet de mettre mes boutons en gris

merci d 'avance

Fichiers attachés

• 
  
  SQCDPver2.xlsm‎
  (272,5 Ko)
  

Macro choisir colonne selon cellule selectionnée sujet

Bonjour-bonsoir,

j'ai besoin de creer une macro pour vérifier la condition d'une plage de cellule comparativement à une cellule qui se trouve en ligne 2.

je suis super nul en macro, et j'ai enregistré le fait d'utiliser la mise en condition, et quand je l'applique à une plage de cellules, il applique la condition selon la cellule utilisée dans mon enregistrement de macro (O2), je voudrais que si je sélectionne P23 par exemple, elle soit comparée à P2. pour Z46 que ce soit Z2 etc.
Je crois qu'une astuce doit être utilisée avec les $, mais je n'arrive pas à faire ce que je veux.

voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Macroconditions_couleur() ' ' Macroconditions_couleur Macro ' ' Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=$P" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub

---

Si quelqu'un peut m'aider ce serait génial !

merci ;)

XL 2007 liste de cellules fusionnées et simplification de macro sujet

Bonsoir amis du forum
je recherche une solution pour un problème de cellules fusionnées ;
Voila je m'explique ,
j'ai un fichier avec environs 200 onglets , sur chaque onglet j'ai plusieurs cellules fusionnées, pas toujours les mêmes ,ces cellules doivent être de couleur différant selon la valeur d'une cellule ici A1.
j'ai fait une macro avec l'enregistreur et les MFC ,
mais je me retrouve avec une série de MFC que je ne veux pas ,je ne sais pas comment transformer la macro pour que selon la valeur en A1 de la feuille la série de cellules change de couleur .
De plus, je voudrais avoir si possible la liste des cellules fusionnées dans une cellule , ce qui me permettrait de sélectionner cette cellule pour fais fonctionner la macro
Range("C3:F5,B4:B11,C9:E11,F6:F18").Select

merci pour votre aide
bonne soirée à tous

Fichiers attachés

• 
  
  cellules fusionées.xlsm‎
  (24,0 Ko)
  

XL 2013 probleme pour accelerer une macro qui garde les doublons sujet

Bonjour,

on m'a aide il y a quelques temps; on m'a donne un code qui marche bien:

Sub eliminer_non_erreur()

Dim plage As Range
Dim Ligne As Long, cpt As Long
'On Error GoTo FinSuppr

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual



LigSource = Sheets(2).Range("B" & Rows.Count).End(xlUp).Row
LigCible = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row + 5 ' + 5


Sheets(2).Range("B6:B" & LigSource).Copy Sheets(1).Range("A" & LigCible)
With ActiveSheet
Set plage = .Range("A3:A" & .Range("A" & Rows.Count).End(xlUp).Row)
cpt = plage.Rows.Count
For Ligne = cpt To 1 Step -1
If Application.CountIf(plage, plage.Cells(Ligne, 1)) = 1 Then
plage.Cells(Ligne, 1).EntireRow.Delete
End If
Next Ligne
End With

Application.ScreenUpdating = True

End Sub


-----------------------

Toutefois, j'ai un long fichier et la macro a pris un temps bien trop long

Je vous met le fichier ci joint si vous voulez faire une simulation

Auriez vous des idees pour que la macro puisse etre bien plus rapide?

peut etre faut il changer le code ?

Merci de votre aide

Fichiers attachés

• 
  
  probleme.zip‎
  (400,4 Ko)
  

macro exel 2010 sujet

Bonjour,
j'ai un fichier journalier de 2 colonnes que je dois modifier pour cela j'ai crée une macro celle ci comporte 2 colonnes A et B, la colonne A contient des chiffres supérieurs a la colonne B, la colonne B a des chiffres inférieurs contenant des zéro que je dois remplacer (les zéros) par les chiffres de la colonne A, j'utilise la fonction =SI pour les remplacer par ceux de la colonne A. J'ai donc une colonne C avec des chiffres ou les 0 sont remplaces par les chiffres de la colonne A, je fais un copier et un collage spécial de la colonne C ( celle qui a la fonction Si)et la colle en valeur
j'enregistre cette macro ou tout est parfait, mais le lendemain je télécharge le nouveau fichier et j'utilise ma macro et les zéro de la colonne ne sont pas traites ....
je suis novice en la matière et bien sur j'utilise la macro automatique sans passer par le VBA
n'ayant aucune base
je vous remercie de m'aider à trouver une solution
Alain
TEST.xls

Fichiers attachés

• 
  
  TEST.xls
  (488,0 Ko)
  

[XL-2013] Une macro pour enregistrer un fichier excel en pdf sujet

bonsoir,

comment faire par macro pour enregistrer un fichier excel en pdf, je voudrais l'enregistrer sur le bureau dans un dossier ,avec pour nom une cellule et la date. ;)

merci
bonne soirée

XL 2007 Macro pour parcourir des milliers de lignes sans ramer :p sujet

Bonjour à tous,

D'ou d'abord merci de me lire, vous allez probablement le regretter face à la complexité de ma demande donc je préfére commencer par cela :)

Je vous expose mon contexte :
Je reçois deux extracts par semaine de mon client, chacun contenant environ 20k de lignes. Sur un mois on est a plus de 80K, je vous laisse calculer sur un an.
J'ai besoin d'info présentes dans les deux extracts et donc de les combiner puis ensuite procéder à une série de calcul selon certains critères.

Mon désir :
J'aimerais pouvoir
- ouvrir les deux fichiers correspondant à mes extracts hebdo et les combiner dans un onglet semaine après semaine (cf fichier exemple afin de voir la structure des deux extracts. Les couleurs des données dans l'onglet combiné correspondent aux couleurs des onglets ou trouver les données).
- Indiquer dans le premier onglet quelles semaines ont déjà été extraites
- Faire une série de calcul en fonction de divers paramétres explicités dans le premier onglet.

J'ai apposé différents commentaires afin que vous compreniez au mieux la structure des fichiers extracts que je reçois.

Mon problème :
Vu le nombre de ligne j'ai testé par macro ou par recherche V et c'est interminable vu la quantité de données a traité.
Je suis débutant en VBA , peut-être que je m'y prend mal et du coup ma macro rame comme jamais, ou alors ce n'est tout simplement pas faisable vu la quantité de données à traiter...

J'attends vos conseils / avis / Proposition avec impatience !

Encore merci :)


Joker.

Fichiers attachés

• 
  
  FnD.xlsm‎
  (22,8 Ko)
  

Toutes versions Macro retour à la ligne après chaque majuscule sujet

Bonjour à tous et merci pour ce super forum qui m'a souvent bien dépanné.
Je créé un nouveau sujet car je suis dans l'impasse et je n'arrive pas à trouver de solution.
Voilà, j'ai une BDD produits et plusieurs colonnes dont une intitulée désignation article. Cette colonne C contient des cellules avec les caractéristiques des produits.

Une cellule donne par exemple :
PRODUIT XXX Dimension 300 x 200 cm Chanfreiné Découpe adhésive Garantie 5 ans

Ce que je voudrais, c’est qu'Excel revienne à la ligne à l'intérieur de la cellule après chaque espace suivi d’une majuscule dans la colonne C pour en gros avoir une cellule comme ça :
PRODUIT
XXX
Dimension 300 x 200 cm
Chanfreiné
Découpe adhésive
Garantie 5 ans

J’ai environ 2000 lignes dans ma BDD, je préfère avoir à enlever quelques sauts de lignes en trop plutôt que d’en ajouter énormément car là je passe mon après-midi à appuyer sur Alt+Entrée…

Cette BDD est un export d’un logiciel et est destinée à être importée dans un autre logiciel donc je n'ai pas le choix. Existe-t-il une macro qui pourrait m'aider ?

Merci d’avance !

XL 2010 Questions Macro édition de courriers Word sujet

Bonjour le forum,

Je travaille sur une macro qui permet, à partir d'une base Excel, de créer un courrier Word, en remplissant des signets. Le courrier est ensuite enregistré en pdf et l'utilisateur peut ou non imprimer "physiquement" le courrier.

Toute la macro est dans Excel, même si elle a des impacts dans Word.

Le fichier pdf s'enregistre très bien, au bon endroit et ne s'ouvre pas (comme prévu).

Je voudrais ensuite qu'avant que le fichier Word se ferme, l'utilisateur ait la possibilité de l'imprimer.

Tout fonctionne, à quelques exceptions près.

1°) le nom du fichier pdf n'est pas bon, puisque la macro va rechercher (comme je lui ai demandé), la valeur de la cellule B2. Or, la valeur à prendre est toujours dans la colonne B, mais c'est B2, B3, B4 ... selon que les informations contenues dans le courrier sont dans les lignes 2, 3 ou 4. Je pense qu'avec un For i = 1 to ..., ça devrait fonctionner, mais je ne sais pas l'utiliser.

2°) pour permettre à l'utilisateur d'imprimer le courrier Word depuis Excel, j'ai inséré une msgbox avec des instructions (que je mette OUI ou NON, la macro imprime). Il me semble que, pour ce faire, en utilisant Excel, il faut rendre Excel visible, ce que j'ai essayé et qui ne fonctionne pas.

3°) Ensuite, que l'utilisateur imprime ou non, Word se ferme, sans enregistrer d'autres changements et on retourne à Excel. Et ça, je ne sais pas faire non plus.

Je joins mon fichier test et les courriers. Vous voudrez bien ne pas tenir compte du fond (!!).
Par ailleurs, comme j'ai changé les répertoires de destination, cela ne devrait pas fonctionner tout de suite. Vous serez obligés de les reconstituer.

J'ai promis à des collègues de les aider très vite sur la question.

Alors, merci beaucoup par avance.

Bien cordialement.

Fichiers attachés

• 
  
  Refus2.doc‎
  (27,0 Ko)
  
• 
  
  Accord2.doc‎
  (28,0 Ko)
  
• 
  
  Test2.xlsm‎
  (42,8 Ko)
  

[XL-2007] [MACRO VB] Fermeture de fichier au bout d'un temps donné sujet

Bonjour,

Peut-on rajouter à une macro existante, un bout de programme fermant le fichier Excel au bout de 5mn par exemple.

Merci de votre aide.

[XL-2010] Macro pour nommer un fichier selon un signet ou le nom d'une cellule sujet

Bonjour le forum,


J'ai adapté une macro trouvée sur un forum qui me permet de faire des courriers Word à partir d'une base Excel.

Je souhaite enregistrer les documents Word en pdf, en les nommant.

Voici une partie du code concerné :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Set wApp = New Word.Application wApp.Visible = True wApp.Activate Select Case ValeurCelluleEtape Case "JR" wApp.Documents.Open Filename:=CheminFichiersWord & "Justif.doc" Set oDoc = wApp.ActiveDocument EditionDocument "Justif" Case "OK" wApp.Documents.Open Filename:=CheminFichiersWord & "Accord" Set oDoc = wApp.ActiveDocument EditionDocument "Accord" Case "NO" wApp.Documents.Open Filename:=CheminFichiersWord & "Refus" Set oDoc = wApp.ActiveDocument EditionDocument "Refus" Case "IP" wApp.Documents.Open Filename:=CheminFichiersWord & "Incident" Set oDoc = wApp.ActiveDocument EditionDocument "Incident" End Select oDoc.PrintOut oDoc.Close.SaveAsPDF Set oDoc = Nothing wApp.Quit ' Fermeture de Word Set wApp = Nothing End If

---

Ma question se pose à la ligne :

Code:

---

oDoc.Close.SaveAsPDF

---

Je voudrais que le document Word s'enregistre en nommant le fichier "Justif", "Accord", "Refus", "Incident", selon le cas (ce qu'il fait automatiquement), puis un tiret, puis le n° de référence qui se trouve dans un signet Word ("Ref") ou dans la base Excel en colonne B (étant entendu que, la base conservant les données précédentes, le n° sera en B2, puis en B3, puis en B4 ...).

Cela donnerait quelque chose du genre "Refus - 121478.pdf".

Quelqu'un aurait-il une idée sur la question ?

Merci d'avance.

Bien cordialement.

[AC-2010] Utiliser une variable public dans une macro sujet

Bonjour,

J'ai une application Access 2010 avec du code VBA.
Sur un formulaire, je ne voudrais exécuter une macro qu'en fonction de la valeur d'une variable public renseignée auparavant
dans du code Vba.
Est-ce possible ? Si oui, comment dois-je faire.
Merci de votre aide.

XL 2003 Problème avec Macro VBA Excel 2003 création de fichier pdf avec adobe 9.5 pro sujet

Bonjour à vous

J'aurais une question pour vous
Actuellement j'ai un code qui fonctionne très bien pour créer des fichiers pdf à partir d'excel 2003 avec adobe acrobat 6 pro et aussi vs 9 pro mais lorsque j'essaie sur version 9.5 ça gèle et l'ordinateur ne répond plus
Je cherche désèspérément sur le web et je ne trouve rien. Peut-être qu'un bon samaritain d'entre vous pourra m'aider je vous en serais très reconnaissant

Voici le code de la macro que j'utilise Je l'avais trouvée sur le web et adaptée il y a quelques années

MErci à l'avance

Farf2101


' sous VBE Menu Outils | Références
' Cocher Acrobat Distiller

Option Explicit
Dim sNomPortReseau As String

Sub Convert__rapport_tribune_xls_to_pdf()
Dim sNomFichierPS As String
Dim sNomFichierPDF As String
Dim sNomFichierLOG As String
Dim PDFDist As PdfDistiller
Dim PrinterDefault As String

' Sur un PC "Personnel" : a priori choix libre du Nom
' et de l'emplacement du fichier de sortie, on est logué en
' Administrateur sur son PC
'
' Sur un PC "Entreprise" :
' Il faut être logué en Administrateur ou en
' Avoir les droits pour utiliser Distiller
' Les chemins PS PDF LOG devront être de la forme :
' "C:\Documents and Settings\UserName\.....\....."

' Si l'on a plusieurs imprimantes il faut :
' Sélectionner l'imprimante virtuelle Adobe PDF tout en conservant
' trace de l'imprimante utilisée par défaut
' Le N° de port réseau NeXY varie suivant le PC sur lequel la macro tourne

PrinterDefault = Application.ActivePrinter
If Imprimante_AdobePDF Then
Application.ActivePrinter = sNomPortReseau
Else
MsgBox "Pas d'imprimante Adobe PDF sur NeXY ", vbOKOnly + vbCritical, "Achtung"
Exit Sub
End If

' Ici le cas d'un PC "Personnel" ""
'MsgBox "joyo10 "
sNomFichierPS = "P:\Dossier de publications (CASIQ)\Site_CASIQ\accueil\rapports journaliers\rapport_La_tribune.ps"
sNomFichierPDF = "P:\Dossier de publications (CASIQ)\Site_CASIQ\accueil\rapports journaliers\rapport_La_tribune.pdf"
sNomFichierLOG = "P:\Dossier de publications (CASIQ)\Site_CASIQ\accueil\rapports journaliers\rapport_La_tribune.log"

' Impression d'une zone nommée
'MsgBox "joyo11 "

Windows("rapport_La_tribune.xls").Activate
'MsgBox "joyo12 "

'Sheets("la tribune").Select
Sheets("la tribune").Activate

'Range("zone_d_impression").Select
'MsgBox "joyo13 "

ActiveSheet.Range("Zone_d_impression").PrintOut Copies:=1, Preview:=False, _
ActivePrinter:=sNomPortReseau, PrintToFile:=True, _
Collate:=True, PrToFilename:=sNomFichierPS
'MsgBox "joyo14 "

Set PDFDist = New PdfDistiller
PDFDist.FileToPDF sNomFichierPS, sNomFichierPDF, ""
Set PDFDist = Nothing

'MsgBox "joyo1 "

Kill sNomFichierPS
Kill sNomFichierLOG
'MsgBox "joyo2 "
Application.ActivePrinter = PrinterDefault
'MsgBox "joyo3 "

End Sub

Public Function Imprimante_AdobePDF() As Boolean
Dim i As Long
' 11 imprimantes réseau
Imprimante_AdobePDF = False
'MsgBox "jo1Y ", vbOKOnly + vbCritical, "Achtung"
'MsgBox ActivePrinter
For i = 0 To 10
If i < 10 Then
sNomPortReseau = "Adobe PDF sur Ne0" & i & ":"
'MsgBox "jo2Y ", vbOKOnly + vbCritical, "Achtung"
Else
sNomPortReseau = "Adobe PDF sur Ne" & i & ":"
'MsgBox "jo3Y ", vbOKOnly + vbCritical, "Achtung"
End If
On Error Resume Next
'MsgBox "jo4Y ", vbOKOnly + vbCritical, "Achtung"
Application.ActivePrinter = sNomPortReseau
'MsgBox "jo5Y ", vbOKOnly + vbCritical, "Achtung"
If ActivePrinter = sNomPortReseau Then
'MsgBox ActivePrinter
Imprimante_AdobePDF = True
'MsgBox Imprimante_AdobePDF
Exit For
End If
Next i
'MsgBox ActivePrinter
End Function

XL 2003 Macro afficher message si valeurs identiques sujet

Bonjour,

Je souhaiterais faire une macro pour mon fichier test.xls.

Je voudrais qu'une fenetre msgbox s'affiche s'il y a 2 lignes identiques.

En fait, les 3 cellules qui doivent être scannées sont les colonnes P-Q-R.

J'aimerais que la macro détecte les doublons dans ces colonnes, cad, même date + même heure + CODE

Pouvez vous m'aider à faire cela ?

Merci d'avance.

Cordialement.

Fichiers attachés

• 
  
  test.xls‎
  (27,5 Ko)
  

[XL-2007] Problème Fin exécution macro sujet

Bonjour,
j'ai créé une petite macro dans excell 2007 qui
1-ouvre une Forms avec 2 champs usr&psswd et 2 boutons ok & cancel
2-un script qui se connecte à une db postgrsql en utilisant les données de connexion renseignées(user et passwd) et qui affiche le résultat d'un query dans la feuille
c'est donc relativement simple.

Le problème se trouve à la fin de l'exécution de la macro...
si dans la Forms je clique sur cancel,il fait ce qu'il faut...rien, il reste dans la feuille excell comme si on avait rien fait
si dans la Forms j'encode un usr/passwd valide et que je clique sur ok...il exécute bien la requête,il affiche bien le résultat dans excell mais ...il revient en mode édition sur la forms (il ouvre donc l'éditeur de forms)au lieu de rester dans la feuille excell...
voici le script...une idée?

Load frmConnex
frmConnex.Show

Dim user As String
Dim passwd As String

user = frmConnex.txtUser
passwd = frmConnex.txtPasswd

If frmConnex.blnCancel = True Then
Unload frmConnex
Exit Sub
End If

Unload frmConnex


Application.Goto Reference:="gesdos_connex"
Dim objDb_con
Dim strSomeValue As String

Set objDb_con = CreateObject("ADODB.Connection")
Set Rsdatatype = CreateObject("ADODB.RecordSet")


glbConnString = "Driver={PostgreSQL Unicode};Database=statistics;server=sd1833v;port=5433;UID=" + user + ";Pwd=" + passwd

If glbConnString = "" Then
MsgBox "Enter the Connection String"
Else:
objDb_con.Open glbConnString

strSql = "select xxxx " & _
" from xxx" & _
" join xxx" & _
" where xxx"

Set Rsdatatype = objDb_con.Execute(strSql)
Columns("A:E").ClearContents
[A2].CopyFromRecordset Rsdatatype

Rsdatatype.Close

End If
objDb_con.Close
Set Rsdatatype = Nothing
Set objDb_con = Nothing
Exit Sub
End Sub

[XL-2013] Besoin d'aide Excel Macro , Concaténation de 2 listes deroulantes sujet

Bonsoir
Voici ce que je tente de faire depuis 1 mois ...
Merci de votre aide .
Ci joint le screen ( l'objectif ) , et le fichier Excel

Images attachées

• 
  
  Capture.PNG
  (182,9 Ko)
  

Fichiers attachés

• 
  
  UEIE-projet2.rar
  (68,4 Ko)
  

Problème de débutant sur une macro sujet

Bonsoir,

Je débute en vba et comme tous les débutants je bloque.
Voila j'ai une feuille Facture sur lequel j'ai créer des boutons: et le dernier bouton: Tout imprimer doit remplir la facture (depuis la feuille client) puis l'imprimer jusqu’à ce qu'il trouve une ligne vide.

je joins mon fichier.

Par avance merci, et bonne soirée

Fichiers attachés

1.txt (4,0 Ko)

[XL-2007] Creer une macro aléatoire sujet

Bonjour,

Comment faire pour éditer une macro qui comparerait des data (D10 à D18) à des Alea (E10 à E18) de façon à avoir le plus rapidement une correspondance totale avec une somme égale à 8 en F19.
La création d'Alea va de E18 à E7 dans cet ordre précis car si le premier Alea ne correspond déjà pas au data en face, on peut faire recommencer le code de la macro au début c'est pas la peine de créer les 11 autres.

Les Alea doivent être faits en une seule fois (comme un paquet de 12 nombres séquentiels) pour conserver la continuité E18 : E7 dans leur séquence aléatoire continue.

voici ma forme de dossier:
http://cjoint.com/?DBbrTPf8hqe

peut-être auriez vous une autre idée qu'alea pour que cette séquence soit la plus logique ? merci

Macro tri une colonne de données par catégories sujet

Bonjour,

Voila je m'explique, j'ai un fichier excel avec 1 seul colonne comme suit :

Citation:

Vide Vide Vide Vide NOM Prenom Adresse Ville Nom Prenom Adresse Ville NOM Prenom Adresse Ville Nom Prenom Adresse Ville NOM Prenom Adresse Ville Nom Prenom Adresse Ville Vide Vide Vide Vide NOM Prenom Adresse Ville Nom Prenom Adresse Ville .....

J'aurais besoin de faire 3 colonnes, le 1er avec Nom Prenom, la 2eme avec l'adresse, la 3eme la ville.

Pour être précis, tous les 18 lignes j'ai 4 lignes vides.

Je ne pense pas que cela soit compliqué mais quelqu'un peut-il m'aider a faire un code pour cela ?

Merci

Macro pour générer sujet

Bonjour,
C'est la première fois que je m'adresse à vous :cry::cry:
Je souhaite via un macro généré un fichier XLS avec plusieurs feuilles: exporter deux ou plusieurs tableaux dans un même fichier mais dans les feuilles différentes.
MERCI d'avance