copier cellule d'une feuille à une autre

Question

Bonjour, 

J'ai besoin d'aide. 
Je veux copier des cellules d'une feuille avec un nom NETTOYAGE a une cellule avec une variable
sheets(cells(3,i).value)

Mias ca beug après le end if sur 
        Worksheets(Cells(3, i).Value).Activate    

Il me dit erreur 9, l'indice n'appartient pas à la selection.
Je n'arrive pas à trouver l'ereur. 

Pouvez vous m'aider ?

Dim entreprise As String, nom As String, detail As String, l As Long, montant As Integer, j As Integer, k As Integer
Dim NETTOYAGE As Worksheet
i = 6
l = 4
Sheets("NETTOYAGE").Activate
Do Until Cells(3, i) = "TOTAL FACTURE"
   Do Until Cells(l, i) = ""
         If Cells(l, i) = 0 Then
             l = l + 1
         Else
          Worksheets(Cells(3, i).Value).Activate    
              k = 7 
                 Do While Cells(k, 2) = notempty
                          k = k + 1
                 Loop
                 
             Worksheets("NETTOYAGE").Activate
             Range(Cells(l, 1), Cells(l, 2)).Select
             Selection.Copy
             
             Worksheets(Cells(3, i).Value).Select
             Range(Cells(k, 1), Cells(k, 2)).Select
             ActiveSheet.Paste

Cells(l, i).Select
             Selection.Copy
             
             Sheets(Cells(3, i).Value).Select
             Cells(k, 3).Select
             ActiveSheet.Paste

Worksheets("NETTOYAGE").Activate
             
             l = l + 1
             
       End If
         
   Loop

i = i + 1

Loop

End Sub




     EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI 

Merci d'y penser dans tes prochains messages.

jordane45 · Answer

Bonjour, Mias ca beug après le end if sur Worksheets(Cells(3, i).Value).Activate Il me dit erreur 9, l'indice n'appartient pas à la selection. Question bête ( ou pas....) - Que vaut i lorsque ça plante ? - Quelle est la valeur de la cellule à ce moment là ?? - Est-ce qu'une feuille portant ce nom existe bien (avec EXACTEMENT la même orthographe... espaces compris!!!!) ??? De plus... tu fais des copy/Past .... mais... que veux tu récupérer exactement ? Si ce n'est QUE LA VALEUR de la cellule (et pas sa mise en forme....) il vaut mieux éviter d'utiliser des SELECT / COPY / PASTE ... et seulement faire des RangeDestination.value = RangeSource.value .....

fafaira · Answer

Bonjour,

Merci de votre réponse. 

I=6 normalement lors de la première boucle. Mais je ne sais pas relevé cette valeur au moment quand ça beug.

Eh oui je veux récupérer que la valeur.

La valeur que je récupère cells (3,i) est RK
Et j ai une feuille qui se nomme également RK.
Je veux récupérer les valeurs  de cette entreprise et mettre que ses valeur dans sa feuille perso.
Dans la feuille nettoyage, j ai l ensemble des entreprises.

Comment fonctionne votre fonction ?

Dois je à chaque fois activer la feuille ?
Pourquoi il ne reconnaît pas l indice alors que je l ai déclaré ?

cs_MPi · Answer

Bonjour,

Tu déclares une variable... aussi bien l'utiliser
Essaie plutôt

Dim NETTOYAGE As Worksheet  'variable objet worksheetNETTOYAGE.Activate   'pas de sheets() ni de guillemets ici

Copier cellule d'une feuille à une autre

3 réponses

Votre réponse

Discussions similaires