Contenu récent par Lian

Re : vlookup ne renvois rien si cellule vide Salut, essaie ça : =SI(ESTVIDE(RECHERCHEV($D2;'2'!$A:$F;COLONNE()-3;FAUX));"";RECHERCHEV($D2;'2'!$A:$F;COLONNE()-3;FAUX)) la fonction ESTVIDE indique si la cellule renvoyée est vide, si c'est vide on met "" sinon on met le résultat de rechercherv...

Re : Dans select case, comment revenir sur alternatives abandonnées en 1er choix ? Oups déjà répondu! :P Lian

Re : Dans select case, comment revenir sur alternatives abandonnées en 1er choix ? Hello, On Error Resume Next enlève tout plantage sur les instructions qui suivent, si c'est pas maitrisé, tu peux chercher longtemps d'où vient ton bug. J'ai cru que On Error Resume Next inibait aussi les...

Re : commande de liaison d une feuille macro vers une feuille standard Hello, tu peux créer une nouvelle macro dans modelcross... - puis copier/coller ce code - puis lancer le macro test via Atl + F8 sub test() Dim a As Range, ligne As Range Dim b As Range With...

Re : vlookup ne renvois rien si cellule vide Salut, Peux-tu attacher un exemple du problème? j'ai du mal à le cerner... Lian

Re : Dans select case, comment revenir sur alternatives abandonnées en 1er choix ? Hello, voici une version qui plante pas et qui permet de sortir une fois p ou t choisi et traité : On Error Resume Next et On Error GoTo 0 ne sont pas recommandés : ça empeche de la fonction appelée...

Re : Dans select case, comment revenir sur alternatives abandonnées en 1er choix ? Hello, voici ma version vu entrement... :) Sub Afficher() Dim Answer As Variant Dim Réponse As Byte While Réponse <> vbYes Answer = Application.InputBox("Merci de donner votre réponse : p pour...

Re : vlookup ne renvois rien si cellule vide Salut, Essaie ça, ça devrait marché : Range("as2").Select If ActiveCell.value = 0 Then ActiveCell.value = "" End If Lian

Re : mise a jour combobox Bonjour, Essaie ça : Private Sub ComboBox1_Click() Dim texte As String Debug.Print ComboBox1.Value NbProd = 1 texte = ComboBox1.Value Sheets(ComboBox1.Value).Activate ComboBox1.Value = texte & " " End Sub Solution de...

Re : commande de liaison d une feuille macro vers une feuille standard Bonjour, Essaie ça : sub test() Dim a As Range, ligne As Range Dim b As Range With ThisWorkbook.Sheets("ArrivéeF ") Set ligne = .Range("A5") Set a = .Range("A5:E5") End With Set b = Workbooks("cross giono...