Contenu récent par Banzai64

  1. B

    Transformer la valeur d'une cellule

    Re : Transformer la valeur d'une cellule Bonsoir Remplaces la macro par celle-ci Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Target.Replace What:="0", Replacement:="1" Application.EnableEvents = True End Sub
  2. B

    listview qui se déplace

    Re : listview qui se déplace Bonjour Tous Une solution qui m'a été donnée pour la balade des ListView : La mettre dans une frame Bonne journée
  3. B

    Masquer une ligne d'une Listview

    Re : Masquer une ligne d'une Listview Bonjour Tu ne m'embêtes pas Remplace dans le code If S.Cells(i, "J") >= 10 And S.Cells(i, "J") <= 20 And S.Cells(i, "E") <> "" And S.Cells(i, Col) = ComboBox1 Then Par celle-ci Attention aux parenthèses If (S.Cells(i, "J") < 10 Or S.Cells(i...
  4. B

    formule condition SI

    Re : formule condition SI Bonjour A tester =SI(ET(ESTVIDE(F4);ESTVIDE(M4);ESTVIDE(S4));"";SI(ESTNUM(S4);"Vendu";SI(ESTNUM(M4);"En vente";SI(ESTTEXTE(F4);"A vendre";"Erreur"))))
  5. B

    VBA Comment Spliter cette cellule

    Re : VBA Comment Spliter cette cellule Bonjour A voir Arpette Devis V012.zip
  6. B

    Masquer une ligne d'une Listview

    Re : Masquer une ligne d'une Listview Bonjour A voir ListView3.ListItems.Clear Dim Col As Integer Dim s As Worksheet, i As Long, j As Byte With ListView3 .ListItems.Clear If ComboBox1 <> "" Then For Each s In Worksheets If Left(s.Name, 9) = "FORMATION" Then...
  7. B

    Masquer une ligne d'une Listview

    Re : Masquer une ligne d'une Listview Bonjour Sans fichier pas facile à tester ListView3.ListItems.Clear Dim Col As Integer Dim s As Worksheet, i As Long, j As Byte With ListView3 .ListItems.Clear If ComboBox1 <> "" Then For Each s In Worksheets If...
  8. B

    Addition ou soustraction

    Re : Addition ou soustraction Bonjour Essayes (pas vérifié) [D1] = Iif([B1]>0, [A1] + [C1], [A1] - [C1]) Bonne journée
  9. B

    Masquer une ligne d'une Listview

    Re : Masquer une ligne d'une Listview Bonjour La valeur n'apparait pas comme cela C'est quand tu alimentes ta Litview que tu testes cette valeur afin d'ajouter cet enregistrement Bonne journée
  10. B

    Une Macro pour plusieurs boutons

    Re : Une Macro pour plusieurs boutons Bonjour Pas compris du tout la macro Recherche "Belarus" en colonne I ??????? Sinon pour trouver la ligne du bouton Lg = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row Bonne journée
  11. B

    Un petit tour sur les modules de classe

    Re : Un petit tour sur les modules de classe Bonjour Bonjour Hasco merci J'avais du lire en tarevrs (travers) Bonne journée
  12. B

    Un petit tour sur les modules de classe

    Re : Un petit tour sur les modules de classe Bonjour Au risque de dire une bêtise Avez vous essayé ? LeUserForm.LabelAlerte.Visible = True/False
  13. B

    planning

    Re : planning Bonjour A vérifier
  14. B

    Mise en Forme Conditionnelle Excel 2000

    Re : Mise en Forme Conditionnelle Excel 2000 Bonjour Une piste Sert toi de la couleur de fond pour avoir une 4ème couleur si les 3 MEFC retournent FAUX Couleur de fond, style de caractère, etc ... peuvent remplacer une 4ème MEFC Bonne nuit
  15. B

    fonction Recherche avec liste Déroulante

    Re : fonction Recherche avec liste Déroulante Bonsoir A voir