Pb VBA et liste déroulante avec lettre et No

Caribou · 17 Avril 2013

Bonjour,

j'ai un code qui me permet de dire si A1 non vide alors B1 = A1 mais si en même temps B1 = non vide, alors ne pas remplacer B1 par A1 avec le code suivant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") And Range("B1") = "" Then
Range("B1") = [A1]
End If
End Sub

Le code fonctionne même si A1 et B1 comportent des listes déroulantes numériques : 22, 54...

Mon pb est que mes cases A1 et B1 comportent des listes déroulantes avec lettre et numéro : D4, B3, F2...

Ça me renvoie alors une erreur : "Run-time error '13' type mismatch"

Est-il possible de contourner ce pb ?

Merci Forum

Caribou · 19 Avril 2013

Re : Pb VBA et liste déroulante avec lettre et No

Bonjour tout le monde,

un petit up car j'ai beau chercher je ne trouve vraiment pas comment faire.

merci pour votre aide.

mapomme · 21 Avril 2013

Re : Pb VBA et liste déroulante avec lettre et No

Bonjour Caribou,

ce code peut-être ?

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("a1:b1")) Is Nothing Then
    If Range("A1") <> "" And Range("B1") = "" Then Range("B1") = [A1]
  End If
End Sub

nb: j'ai changé d'évènement, je ne sais pas si j'ai bien fait. A vous de voir 🙂

Caribou · 22 Avril 2013

Re : Pb VBA et liste déroulante avec lettre et No

Merci beaucoup ! La solution fonctionne très bien avec le changement d'événement.

De mon côté, j'ai fini par trouver une solution par :
If Range("A1") <> "" And Range("B1") = "" Then
Range("B1") = [A1]
End If

Par contre, je n'arrive pas à étendre ma solution ni la vôtre à plusieurs cellules.

Par exemple, en partant de votre code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1😀1")) Is Nothing Then
If Range("A1") <> "" And Range("B1😀1") = "" Then Range("B1😀1") = [A1]
End If
End Sub

C'est le : If Range("A1") <> "" And Range("B1😀1") = ""
qui ne passe pas. Et si je laisse And Range("B1") = "" alors le contenu des cellules C1 et D1 est écrasé.

Comme je n'y connais pas grand chose j'ai improvisé mais ça n'a pas marché :/

Pourriez-vous encore me dire comment étendre votre code ?

Merci !

mapomme · 22 Avril 2013

Re : Pb VBA et liste déroulante avec lettre et No

Bonsoir Caribou,

Pas tout à fait certain d'avoir compris ce que vous vouliez faire. Un essai dans le fichier joint:
Code:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range

  If Not Intersect(Target, Range("a1:d1")) Is Nothing Then
    ' des changements se sont produits au sein de la zone A1:D1
    If Range("A1") <> "" Then
      'la cellule A1 n'est pas vide
      For Each xCell In Range("B1:D1")
        'dans chaque cellule vide de la zone B1:D1, on place la valeur de A1
        If xCell = "" Then xCell = [A1]
      Next xCell
    End If
  End If

End Sub

Caribou · 23 Avril 2013

Re : Pb VBA et liste déroulante avec lettre et No

Impeccable, c'est en plein ça.
Merci beaucoup.

Pb VBA et liste déroulante avec lettre et No

Caribou

Guest

Pièces jointes

Caribou

Guest

mapomme

XLDnaute Barbatruc

Caribou

Guest

mapomme

XLDnaute Barbatruc

Pièces jointes

Caribou

Guest

Discussions similaires

Pb VBA et liste déroulante avec lettre et No

Caribou

Guest

Pièces jointes

Caribou

Guest

mapomme

XLDnaute Barbatruc

Caribou

Guest

mapomme

XLDnaute Barbatruc

Pièces jointes

Caribou

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency