Macro : problème de copier coller

Résolu/Fermé
babibounette Messages postés 23 Date d'inscription lundi 5 août 2013 Statut Membre Dernière intervention 14 janvier 2014 - 14 janv. 2014 à 15:41
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 14 janv. 2014 à 16:55
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 :)
A voir également:

6 réponses

babibounette Messages postés 23 Date d'inscription lundi 5 août 2013 Statut Membre Dernière intervention 14 janvier 2014
14 janv. 2014 à 15:42
ah, et je sais plus comment insérer mon document exemple :/
0
babibounette Messages postés 23 Date d'inscription lundi 5 août 2013 Statut Membre Dernière intervention 14 janvier 2014
14 janv. 2014 à 15:54
https://www.cjoint.com/?3Aop1RtffCF
et voilà mon fichier ! j'ai retrouvé comment faire depuis la dernière fois lol !
0
babibounette Messages postés 23 Date d'inscription lundi 5 août 2013 Statut Membre Dernière intervention 14 janvier 2014
14 janv. 2014 à 15:56
maintenant elle s'exécute mais ne s'arrête plus (fait planter excel... ça me marque "excel ne répond plus"...
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
14 janv. 2014 à 16:23
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

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
babibounette Messages postés 23 Date d'inscription lundi 5 août 2013 Statut Membre Dernière intervention 14 janvier 2014
14 janv. 2014 à 16:52
eh ben, on dirait que ça fonctionne !!!!!!!!! merci beaucoup beaucoup beaucoup !!!!
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
14 janv. 2014 à 16:55
Ben tant mieux ...

De rien, de rien, de rien !!! ^^
0