Sujet Précédent Sujet Suivant

RENVOYER LES VALEURS D'UNE LIGNE SUR UNE COLONNE

Résolu/Fermé
RANDRIANARISOA0 Messages postés 16 Date d'inscription mercredi 24 avril 2013 Statut Membre Dernière intervention 2 février 2020 - Modifié le 30 nov. 2017 à 13:29
RANDRIANARISOA0 Messages postés 16 Date d'inscription mercredi 24 avril 2013 Statut Membre Dernière intervention 2 février 2020 - 2 déc. 2017 à 13:35
Bonjour,

je sollicite votre aide ,j'essais d'avoir cette forme dans la colonne D sauf que mon code donne cette valeur en E
etc p,a
CODE

Cordialement 




Sub SCRIPTER()

Dim dc As Long, i As Long

dc = Range("A" & Rows.Count).End(xlUp).Row

With Sheets("SCR-XYZ")

    For i = 2 To dc

        Cells(i, 4) = Cells(i, 1)

        Cells(i + 1, 4) = Cells(i, 2)

        Cells(i + 2, 4) = Cells(1, 3)

    Next i

End With

End Sub            
                

    
            

            

    

    
    

        A voir également:         
    




    

        
        

                
3 réponses

        

        
    


            

        
        
        

                        Réponse 1 / 3
        


                

                

        

                    

        
            
    
    

                
            

    


            

                

        
                    Patrice33740
    
        
                    Messages postés
            
                
            8556
                
                            Date d'inscription
            dimanche 13 juin 2010
                            Statut
            Membre
                            Dernière intervention
             2 mars 2023
            

            
                    1 776
    
    
                    

                    30 nov. 2017 à 13:27
                        

    


    

                        

                    Bonjour,



Quel est le problème ???



Note : pour plus de clarté, il faut baliser le code :



  

 

                
                

    
        

    
            
        0
                                
                
    

            



    

        
        
    


        

        

                    

    

        

                    

            

        

        
        
        

                        Réponse 2 / 3
        


                

                

        

                    

        
            
    
    

                
            

    


            

                

        
                    Patrice33740
    
        
                    Messages postés
            
                
            8556
                
                            Date d'inscription
            dimanche 13 juin 2010
                            Statut
            Membre
                            Dernière intervention
             2 mars 2023
            

            
                    1 776
    
    
                    

                    30 nov. 2017 à 14:12
                        

    


    

                        

                    Re,



Essaies :

Option Explicit
Sub SCRIPTER()
Dim r As Range
Dim c As Range
Dim d As Range

With Worksheets("SCR-XYZ")
  Set r = .Range("C2", .Range("A" & Rows.Count).End(xlUp))
  Set d = .Range("D2")
End With
For Each c In r.Cells
  d.Value = c.Value
  Set d = d.Offset(1)
Next c

End Sub 


 

                
                

    
        

    
            
        0
                                
                
    

            



    

        
        
    


        

        

                    

    

        

                    

            

        

        
        
        

                        Réponse 3 / 3
        


                    
                    

                

        

                    

        
            
    
    

                
            

    


            

                

        
                    RANDRIANARISOA0
    
        
                    Messages postés
            
                
            16
                
                            Date d'inscription
            mercredi 24 avril 2013
                            Statut
            Membre
                            Dernière intervention
             2 février 2020
            

                    

                     2 déc. 2017 à 13:35
                        

    


    

                        

                    Ca marche 

je vais continuer à l'enrichir 

merci bien,
                
                

    
        

    
            
        0
                                
                
    

            



    

        
        
    


        

        

                    

    

        

                    

            

        

    



    
Discussions similaires

                                                    

                
                    liste de noms par ordre alphabétique
                    

                        
    
    

            

    


                        

                                                                                    alma -  

                            
                                                                                    alma13 - 
                        

                    

                    

                    

                        23 réponses
                    

                
            

                                                        

                
                    Statut « en ligne » alors que non
                    

                        
    
    

            

    


                        

                                                                                    GgBono -  

                            
                                                                                    Slickk - 
                        

                    

                    

                    

                        1 réponse
                    

                
            

                                                        

                
                    Que veut dire "correspondant occupé" lors d'un appel ?
                    

                        
    
    

            

    


                        

                                                                                    veroaaa -  

                            
                                                                                    mamybigoud68 - 
                        

                    

                    

                    

                        9 réponses
                    

                
            

                                                        

                
                    Formule magique excel??????
                    

                        
    
    

            

    


                        

                                                                                    sexy_miss -  

                            
                                                                                    Raymond PENTIER - 
                        

                    

                    

                    

                        13 réponses
                    

                
            

                                                        

                
                    On me voit connecté sur facebook alors que je n'y suis pas
                    

                        
    
    

                
            

    


                        

                                                                                    MrTheMolode -  

                            
                                                                                    lily - 
                        

                    

                    

                    

                        5 réponses