Recherche:

Bonjour Franc, je te remercie, au top

Bonjour les amis,

je coince sur la création d'un code, j'ai trouvé un code me permettant de trouver les doublons dans une colonne en les colorant,
mais j'aimerai pouvoir colorer la ligne entière...

Bonjour,


Sub ShapeClick()

'MsgBox "Vous avez cliquez sur la région N° " & Application.Caller
Range("K4").Value = "région N° " & Application.Caller

End Sub

Bonjour,
Voici un exemple
@+


Sub ShapeClick()

MsgBox "Vous avez cliquez sur la région N° " & Application.Caller

End Sub

Bonjour,
Au plaisir.
@+ ;)

Bonjour,
Créer un module de classe et y mettre ce code:

Public WithEvents TextBoxGroup As MSForms.Textbox

Private Sub TextBoxGroup_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

...

Bonjour,
essayer comme ça:


Private Sub UserForm_Activate()
'code...
Me.CbxSup.DropDown
End Sub

@+ :)

Bonjour à tous,

Insserer Controle ActiveX - Zone de liste déroulante

et macro à lancer


Sub Alimente_la_ComboBox_de_la_Feuil1_sans_doublon()
Dim Cell As Range
Feuil1.ComboBox1.Clear

Bonjour,
Pas moyen de stocker dans une cellule ?
Nicolas

Bonjour,
je sais pas si j'ai bien compris, mais peut-être comme ça,

Sub MAJ()
Workbooks.Open Filename:=ThisWorkbook.Path & "\db.xlsm"
ActiveWindow.WindowState = xlMinimized...

pour le 3eme combobox


Private Sub ComboBox2_Change()
Dim derlign As Integer
Dim Num As Integer
Dim i As Integer
Dim Line As Range
Dim Tbl()
x = ComboBox1.Text

je te remercie, foutu s qui m'on planté :(
plus qu'a bucher la suite

Bonjour Patrick,

je me suis emmeler, je pense pas être loin,
mais la c'est erreur 438 propriété ou méthode non gérée par cet objet sur ligne 10

Bonjour, en gros dans le premier combobox1 je saisi soit Filtration ou Lubrifiant ou etc.…. et du coup si je saisie Filtration je veux que la liste dans mon combobox2 soit F-HUILE, F-CARBURANT...

Bonjour à tous,
je galère sur un problème et ne trouve plus de solution, tout ce mélange dans ma tête.
J'essai de refaire un programme de gestion de stock avec famille, sous-famille, article
pour...

en 2016 64bits, mais je sais pas pourquoi le ScreenUpdating ne passe pas

Je vais pas m'éterniser comme à chaque fois :(
j'ai essayé avec un classeur vide (images) pour reprendre le code à Pierre mais sans réussite, peut-être les versions excel.
A bientôt

A Pierre

J pense que si screenupdating=false, ThisWorkbook est bien "images.xlsx"
vu qu'il a pour effet d'accélerer et limiter les effets graphiques lors du déroulement de la macro, non??

Oui comme ça ça marche

J'ai repris ton code sans
Application.ScreenUpdating = False

et ça devrait fonctionner je pense parce que tel quel pour moi ça ne fonctionnait pas non plus


Private Sub Workbook_Open()
...

Effectivement j'ai repris un de mes codes sans trop réfléchir,
mais je ne doute pas que ton code fonctionne.

Bonjour les amis


Private Sub Workbook_Open()
Dim wb As Workbook

Workbooks.Open ThisWorkbook.Path & "\Classeur2.xlsm"
Set ws = Nothing
Windows("Namefile.xlsm").Activate

J'avais pas vu ta modif
excel 2016 32 ça marche sans aucun probleme, n'importe quel zoom, dizaine et unité

excel 2013 64 décalage de 1 pixel en top ou left + ou - , n'importe quel zoom, dizaine...

moi aussi cher ami

bord = ((.InsideWidth - .Width) / 2) + 1 ' = -5

.width = 240
.insidewidth = 228

228 - 240 = -12
-12 / 2 = -6
-6 + 1 = -5 sur win10 2016 32bits

Bonjour Patrice, oui on a les mêmes versions , ça me réconforte, je suis pas fou, enfin je pense :lol: