Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 ?
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 : 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...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.