un petit problème

Question

Bonjour mesdames Messeiurs

j'ai un problème avec cette macro
car lorsque je vais chercher dans la feuille gestion en i5 la valeur 1 il me copie deux fois la sélection demandé.
Peut être que c'est un petit problème mais c'est un grospour moi actuellement.

Sub Macro1()

 Range("g246:g311").Select
    Selection.Copy
    
    
    nb_x = Sheets("Gestion").Range("i5").Value

    For i = 0 To nb_x
    
        somme = Asc("g") + i
        chaine = Chr(somme) + CStr(11)
        Range(chaine).Select
    
        ActiveSheet.Paste

    Next i

End Sub

@ bientot

fred ;)

yomm · Answer

je dev pas sous excel mais en voyant ce code cela me semble "compréhensible"...
tu fais 

 Range("g246:g311").Select


au début de ta macro...il ne serait pas par hasard nécessaire de réinitialiser ta sélection après

 nb_x = Sheets("Gestion").Range("i5").Value

histoire de repartir sur un selection vierge?

Yomm  >:) 

[mailto:yommvb@ifrance.com yommvb@ifrance.com]

Et que la source soit avec toi!!!!!

cs_fred64300 · Answer

Merci de la réponse Yomm
Excuse de ma ponctualité mais je n'ai pas toujours internet
j'ai encore un autre problème car la fonction Chr(somme) arrive seulement jusqu'à Z la colonne.

Est-ce que vous n'auriez pas une fonction quui fasse AA AB AC car les colonnes sur excel continue après Z ;) alors j'ai un big problème

En vous remerciant de la réponse

fred ;)

Un petit problème

2 réponses

Discussions similaires