Condition en vba

Signaler
Messages postés
3
Date d'inscription
dimanche 7 octobre 2007
Statut
Membre
Dernière intervention
20 juin 2009
-
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
-
bonjour a tous
j'aimerai faire cet petite macro dans excel mais je suis vraiment debutant


Si A1= A alors copier valeur de B5(feuil1) en B6(feuille2) jusqu' a


Si A1= H alors copier valeur de B12(feuil1) en B12(feuil2)

merci a tous

2 réponses

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
salut,

'possibilité 1 :

If Sheets("Feuil1").Range("A1").Value = "A" Then
    Sheets("Feuil2").Range("B6").Value = Sheets("Feuil1").Range("B5").Value
ElseIf Sheets("Feuil1").Range("A1").Value = "H" Then
    Sheets("Feuil2").Range("B12").Value = Sheets("Feuil1").Range("B12").Value
end If

'possibilité 2 :

Select Case Sheets("Feuil1").Range("A1").Value
    Case "A"
       Sheets("Feuil2").Range("B6").Value = Sheets("Feuil1").Range("B5").Value
    Case "H"
        Sheets("Feuil2").Range("B12").Value = Sheets("Feuil1").Range("B12").Value
End Select
~
<small>[code.aspx?ID=39466 Mortalino] ~
Colorisation automatique</small>

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut,

Tu n'es pas dans le bon theme ! le VBA Excel c'est ici : [infomsg.aspx Thèmes] / [infomsgf_VISUAL-BASIC_1.aspx Visual Basic 6] / [infomsgt_LANGAGES-DERIVES_287.aspx Langages dérivés] / [infomsgt_VBA_244.aspx VBA] /

Salut mortalino, je pense qu'il voulait dire de A à H

Sub demo()
    Dim MaListe As String, Position As Long
    MaListe = "abcdefgh"
    With Sheets(feuil1)
        Position = InStr(1, MaListe, LCase(.Range("a1").Value))
        If Position <> 0 Then
           Sheets("feuil2").Range("B" & 5 + Position).Value = .Range("B" & 4 + Position).Value
       Else
          Msgbox "la cellule A1 doit contenir une lettre comprise de A à H(inclus)"
       End If
    End With
End Sub

A+