Plus simplement ?

Martin -  
Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

est-ce qu'il y a un moyen d'écrire ca plus simplement ? avec un for ou with ? 

If ShtN.Range("b7").Value <> "" Then
                                        ShtN.Range("B7").Value = shtR.Range("F" & DLigR + 1).Value
  If ShtN.Range("b8").Value <> "" Then
                                         ShtN.Range("B8").Value = shtR.Range("F" & DLigR + 1).Value
   If ShtN.Range("b9").Value <> "" Then
                                          ShtN.Range("B9").Value = shtR.Range("F" & DLigR + 1).Value
    If ShtN.Range("b10").Value <> "" Then
                                           ShtN.Range("B10").Value = shtR.Range("F" & DLigR + 1).Value
     If ShtN.Range("b11").Value <> "" Then
                                            ShtN.Range("B11").Value = shtR.Range("F" & DLigR + 1).Value
      If ShtN.Range("b12").Value <> "" Then
                                             ShtN.Range("B12").Value = shtR.Range("F" & DLigR + 1).Value
       If ShtN.Range("b13").Value <> "" Then
                                              ShtN.Range("B13").Value = shtR.Range("F" & DLigR + 1).Value
        If ShtN.Range("b14").Value <> "" Then
                                               ShtN.Range("B14").Value = shtR.Range("F" & DLigR + 1).Value
         If ShtN.Range("b15").Value <> "" Then
                                                ShtN.Range("B15").Value = shtR.Range("F" & DLigR + 1).Value
          If ShtN.Range("b16").Value <> "" Then
                                                 ShtN.Range("B16").Value = shtR.Range("F" & DLigR + 1).Value
           If ShtN.Range("b17").Value <> "" Then
                                                  ShtN.Range("B17").Value = shtR.Range("F" & DLigR + 1).Value
            If ShtN.Range("b18").Value <> "" Then
                                                   ShtN.Range("B18").Value = shtR.Range("F" & DLigR + 1).Value
             If ShtN.Range("b19").Value <> "" Then
                                                    ShtN.Range("B19").Value = shtR.Range("F" & DLigR + 1).Value


1 réponse

  1.
    Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Réaliser une boucle sur la colonne [B]
    exemple: 
    Sub bouclecolB()
Dim val As Long
For Each val In Range("B7:B19")
    If val.Value <> "" Then
        val.Value = shtR.Range("F" & DLigR + 1).Value
    End If
Next val
End Sub

    Salutations.
    Le Pingou
    0
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Bonjour tout le monde,

      Dim val As Long
      ?? Je suis peut-être miro mais pourquoi Long et pas Double ou même String ?

      eric
      0
    2. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
       
      Bonjour eriiic,
      Merci, cela m'a échappé, un String ou Variant fait l'affaire.
      Peut-être du surmenage ... !
      Amicales salutations.
      Le Pingou
      0

Discussions similaires

chez qui faire développer ses photos par internet?
anonyme -
anonyme -

2 réponses
fichier Word à insérer dans un PDF existant
Ninon -
kali -

10 réponses
Fusion de PDF : guide pour les outils gratuits et sécurisés
LaRedaction -
Pierr10 -

2 réponses
Liste simplement chaînée
[Dal] -
[Dal] -

0 réponse
désactiver compiz simplement
InAme19 -
InAme19 -

4 réponses