Sujet Précédent Sujet Suivant

Plus simplement ?

Martin -  
Le Pingou Messages postés 12713 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

Réponse 1 / 1
Le Pingou Messages postés 12713 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
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
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
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
Le Pingou Messages postés 12713 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
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

Mon iPhone charge simplement eteint
lauramoxy -
emmaa20 -

4 réponses
fusionner sous titre et video simplement
ahmed28 -
Cinephil750 -

3 réponses
tout simplement que veut dire "LNB"
jessie2008 -
Utilisateur anonyme -

3 réponses
Accélérez votre connexion Internet simplement avec DNS
LaRedaction -
brupala -

12 réponses
ralentir un fichier audio avec vlc (très simplement)
adossia21 -
tribun -

1 réponse