Recherche:

bonjour pourinfo le forum,
on peut faire un truc dans ce style pour gérer le bouton annuler.code très "brut" il faut adapter

après pour empêcher de modifier il faut voir il faut plus d'infos ta...

re, en fin de compte tes 2 posts sont liees!!!! ca sert a rien de passer par une evenementielle dans ton cas il faudra le mettre dans userform quand tu feras des changements. mais comme dit dans...

re, comme je pense comprendre tu as une feuille par article qui porte le nom d'un label non oui ???

si c'est cela pas complique a faire cela devrait se resumer en quelques lignes de code. Pas le...

re, eh bien le code tu le met dans thisworkbook


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If [a10] > [a1] Then MsgBox "plus grand" Else MsgBox "plus petit"...

bonjour Didpa pas clair ton code il est sense faire quoi ??? les textboxs sont dans un userform les labels aussi ???. si tu veus que quelqu'un ou 'une t'aide il faut être plus explicite ou zipper un...

bonjour Didpa peut être passer par une evenementielle

code dans worksheet de ta feuille
exemple basique a adapter


Private Sub Worksheet_Change(ByVal Target As Range)
If [a10] > [a1] Then...

bonjour babybell Ormonth . comme je comprends a adapter..


Private Sub ComboBox1_Change()
If ComboBox1 = "a" Then ComboBox2.List = Array("1", "2", "3")
If ComboBox1 = "b" Then...

re, explique un peu j'ai du mal a suivre????

re,j'ai trouve un fichier qui le fait. regarde la cellule c2 & adapte a ton fichier il faut copier tous les codes dans vba dans ton fichier

bonjour fanfan89 essai comme cela


Sub es()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Worksheets
if Ws.Name <> "Menu" And Ws.Name <> "Divers" Then
...

re, as tu essaye d'adapter en fonction de ta plage???

sinon change ces 2 lignes dans le code


For Each c In [q8:q128]
'par

For Each c In [p8:p128]

RE, essai comme cela


If Cells(1, 1) Like "*[0123456789]*" Then MsgBox "oui" Else MsgBox "non"

msgbox =action1 ou action2

re, pour une listbox c'est pareil !!!!


Private Sub UserForm_initialize()
ListBox1.List = Array("red", "red", "blue", "green")
End Sub

bonjour, pour une combo..


Private Sub UserForm_initialize()
combobox1.List = Array("red", "red", "blue", "green")
End Sub

re, le plus simple peut être compter les valeurs des cellules rouge
exemple


Sub compte()
MsgBox Application.CountIf([q1:q128], 10) 'compte les valeurs =10
'ou
MsgBox...

bonjour,

question: tes couleurs sont issu d'une mise en forme conditionnelle ???

bonjour,

un exemple teste si cell a1=a,b, c ect.... en majuscule & minuscule & un seul caractére dans la cell "LEN"


If Cells(1, 1) Like "[A-Z]" Or Cells(1, 1) Like "[a-z]" And Len(Cells(1,...

bonjour, une variante!!!!!!


ActiveWorkbook.Close False 'pas sauve
ActiveWorkbook.Close True 'sauve
If Workbooks.Count > 1 Then ActiveWorkbook.Close Else Application.quit

bonjour Nana-Didi

à mon avis il faut traiter comme cela plus simple!!! si les nombres doivent être entiers supprime le point dans les KeyPress


Private Sub Bouton_Ok_Click()
If PoidsBox >...

bonjour Golork as tu essaye comme cela !!!!
dans Thisworkbook de ton classeur


Private Sub Workbook_Open()
Application.WindowState = xlMaximized
End Sub

bonjour volubiliss,bosk une autre méthode a adapter


Sub es()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Worksheets
Ws.Activate
...

bonjour ADbtr le forum il faut utiliser ...
set ect...

If Not CelluleReference Is Nothing Then
'action1
Else
'action2
End If

bonjour hbc87 le forum un exemple basique avec une macro volontairement lente
le code je le mets dans l'userform. la progressbar occupe toute la longueur de l'user!!
ideal serait de voir ton code...

bonjour Bugzy1963 le forum en general il faut faire référence a la page recherche de ce côté la
exemple

MultiPage1.Pages(1).Enabled = False

re, en conservant ton code qu'on pourrait simplifier!!!


Option Explicit
Sub Test()
IdentifieDoublons Range("D1: D300")
End Sub
Sub IdentifieDoublons(Plage As Range)
Dim c As Range, Un As...