Macro : problème de copier coller Résolu

Question

Bonjour, 

je vous soumets mon problème.
je suis sous excel 2013. j'ai fait une macro mais elle ne s'exécute pas.
j'ai 2 onglets : un "tableau" l'autre "soleil"
je veux mettre l'heure du coucher du soleil issu de l'onglet "soleil" dans la case correspondante dans "tableau", pour la bonne date.
exemple :
pour le 1er janvier, coucher du soleil à 16h22.
je veux prendre 16h22 dans l'onglet "soleil" et le mettre en face de "1er janvier" dans l'onglet "tableau".
j'espère être claire :)

babibounette · Answer

ah, et je sais plus comment insérer mon document exemple :/

babibounette · Answer

https://www.cjoint.com/?3Aop1RtffCF
et voilà mon fichier ! j'ai retrouvé comment faire depuis la dernière fois lol !

babibounette · Answer

maintenant elle s'exécute mais ne s'arrête plus (fait planter excel... ça me marque "excel ne répond plus"...

Polux31 · Answer

Bonjour,

Voilà la procédure modifiée:

Option Explicit

Sub Soleil()
Dim nblignes 'nblignes = dernière ligne de la feuille tableau
Dim nbLigne  'nbligne = dernière ligne de la feuille soleil
Dim lignetableau  'Indice de boucle For Next
Dim lignesoleil   'Indice de boucle For Next

nblignes = Sheets("tableau").Range("P1").End(xlDown).Row
nbLigne = Sheets("soleil").Range("F7").End(xlDown).Row

' de la ligne 2 à la dernière ligne de la feuille tableau
For lignetableau = 2 To nblignes
    ' de la ligne 7 à la dernière ligne de la feuille soleil
    For lignesoleil = 7 To nbLigne
    
    ' si les colonnes date de la feuille soleil correspondent à celles date_nuit du tableau, on copie la valeur
        If Sheets("tableau").Cells(lignetableau, 32) = Sheets("soleil").Cells(lignesoleil, 3) And Sheets("tableau").Cells(lignetableau, 33) = Sheets("soleil").Cells(lignesoleil, 4) And Sheets("tableau").Cells(lignetableau, 34) = Sheets("soleil").Cells(lignesoleil, 5) Then
            Sheets("tableau").Cells(lignetableau, 30) = Sheets("soleil").Cells(lignesoleil, 15)
            lignesoleil = nbLigne
        End If
        
    Next lignesoleil
Next lignetableau

End Sub

babibounette · Answer

eh ben, on dirait que ça fonctionne !!!!!!!!! merci beaucoup beaucoup beaucoup !!!!

Polux31 · Answer

Ben tant mieux ...

De rien, de rien, de rien !!! ^^

Macro : problème de copier coller

6 réponses

Discussions similaires

Newsletters