Formule/message style alerte

Version imprimable

Voir 40 message(s) de cette discussion en une page

16/03/2019, 15h08
Patrice740
Citation:
Envoyé par ashpo4

...
Ici, je cherche a recuperer la valeur dans ma cellule A1 qui est une formule trouvé sur le net pour qu'elle note le nom mis dans mon onglet et quand il fait la boucle et fait le copier coller il me saute une ligne.

Code:

1 2 3 ... Nom = Range("A1").Value ...
Citation:

Envoyé par ashpo4

Y'a t il quelqu'un pour répondre à ma question?

N'as-tu pas déjà la réponse ?
Sinon, c''est quoi exactement la question ?
16/03/2019, 16h28
ashpo4

Bonjour,

Non justement quand je fais ca il ne récupere pas ce qui se trouve en A1 il copie la formule que j'ai mise
donc lorsque il va coller il recoller la formule et m'inscrit le nom de l'onglet.

Citation:

Envoyé par Patrice740

N'as-tu pas déjà la réponse ?
Sinon, c''est quoi exactement la question ?
16/03/2019, 17h11
Patrice740

Citation:

Envoyé par ashpo4

Non justement quand je fais ca il ne récupere pas ce qui se trouve en A1 il copie la formule que j'ai mise
donc lorsque il va coller il recoller la formule et m'inscrit le nom de l'onglet.

Exprimes-toi clairement, c'est incompréhensible !

Dans le code que tu présentes, "nom" contient la valeur de la cellule A1 mais tu ne l’utilises pas !

Je ne sais pas comment etre plus claire, je me répète...

Revoici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 'Sub est le debut de la procedure Sub Rappel() 'Dim est une variable Dim DateJour As Date Dim DateLimite As Date 'Dim Nom As String 'Dim NomLot As String 'Dim Rappel As String Dim Cible As String 'Dim Total As Double Dim Cpt As Long Dim Couleur As Long Dim nb_lignes As Long Dim numero_ligne As Long 'DateJour = A la date du systeme DateJour = Date nb_lignes = WorksheetFunction.CountA(Range("A:A")) - 2 'Fonction NBVAL Cible = " Rappel" Cpt = 6 'For Each Onglet In Worksheets While IsEmpty(var) = False DateLimite = Range("D" & Cpt).Value numero_ligne = Range("F5") + Cpt Couleur = Range("D" & Cpt).Interior.Color If DateJour >= DateLimite And Couleur = 16777215 Then Range("A1").Copy Worksheets(Cible).Range("A" & Cpt) Cells(numero_ligne, 1).Copy Worksheets(Cible).Range("B" & Cpt) Cells(numero_ligne, 2).Copy Worksheets(Cible).Range("C" & Cpt) Cells(numero_ligne, 3).Copy Worksheets(Cible).Range("D" & Cpt) Cells(numero_ligne, 4).Copy Worksheets(Cible).Range("E" & Cpt) Cpt = Cpt + 1 var = True Else Cpt = Cpt + 1 var = False End If Wend MsgBox "Opération terminée" 'Next End Sub
Dans ma cellule A1 j'ai mis cette formule trouvé sur le net : =STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;
NBCAR(CELLULE("nomfichier";A1))-TROUVE("]";CELLULE("nomfichier";A1)))

Elle recupere donc ce que j'ai mis dans mon onglet. Donc si je la copie de ma feuille "Test 1" et que je vais la coller dans une autre cellule de mon autre feuille 'Test 2"
il me copie ce qui est noté de mon onglet.

En gros il ne m'ecrit pas Test1 dans ma feuille Test2 fin voilà je ne sais etre plus clair. Je peux te montrer mes tableaux si il le faut...

Citation:

Envoyé par Patrice740

Exprimes-toi clairement, c'est incompréhensible !

Dans le code que tu présentes, "nom" contient la valeur de la cellule A1 mais tu ne l’utilises pas !

16/03/2019, 17h56
Patrice740

Ça n'a rien à voir avec le code VBA.
Quelle version d'Excel ?
Le mode de calcul ne serait-il pas en manuel ?
16/03/2019, 18h29
ashpo4

Ah d'accord, je pensais qu'on pouvait malgré ca recupérer le nom.

C'est office16
Et oui ma formule je les mise en manuel :/

Citation:

Envoyé par Patrice740

Ça n'a rien à voir avec le code VBA.
Quelle version d'Excel ?
Le mode de calcul ne serait-il pas en manuel ?
16/03/2019, 19h06
Patrice740

Citation:

Envoyé par ashpo4

Ah d'accord, je pensais qu'on pouvait malgré ca recupérer le nom.

Il suffit de calculer la feuille
Avec VBA : MaFeuille.Calculate
Sans VBA : F9
16/03/2019, 19h11
ashpo4

J'ai un peu du mal a comprendre, donc je mettrais

Code:

Range(MaFeuille.Calculate).copy

Et ca me prendrait le nom de ma feuille

Citation:

Envoyé par Patrice740

Il suffit de calculer la feuille
Avec VBA : MaFeuille.Calculate
Sans VBA : F9
16/03/2019, 19h14
Patrice740

Code:

Worksheets(Cible).calculate
16/03/2019, 19h24
mercatog

Citation:

Non justement quand je fais ça il ne récupère pas ce qui se trouve en A1 il copie la formule que j'ai mise
donc lorsque il va coller il recoller la formule et m'inscrit le nom de l'onglet

Remplace la ligne 31 par celle ci

Code:

Worksheets(Cible).Range("A" & Cpt).Value = Range("A1").Value
16/03/2019, 19h38
Patrice740
Citation:

Envoyé par mercatog

Remplace la ligne 31 par celle ci

Code:

Worksheets(Cible).Range("A" & Cpt).Value = Range("A1").Value

ce serait plutôt :
Code:

1 2 Range("A1").Copy Worksheets(Cible).Range("A" & Cpt) 'pour le format Worksheets(Cible).Range("A" & Cpt).Value = Worksheets(Cible).Name 'pour le nom sans formule
16/03/2019, 19h46
ashpo4

Je dois louper quelque chose, pouvez vous m'expliquer un peu votre code, quand je le met en msgBox il me renvoi vrai

Citation:

Envoyé par Patrice740

Code:

Worksheets(Cible).calculate
16/03/2019, 19h49
mercatog

Si c'était le cas, il aurait écris directement Rappel dans A & Cpt alors qu'il veut activesheet.name

J`avais répondu pour lui indiquer comment récupérer juste la valeur d'une cellule contenant une formule quelconque
16/03/2019, 20h01
Patrice740

Citation:

Envoyé par ashpo4

Je dois louper quelque chose, pouvez vous m'expliquer un peu votre code

Tu devrais reprendre entièrement la lecture du cours, conseillé par Menhir au post #12, depuis le début.
Il y a aussi l'aide qui est très bien fait (cliquer sur le mot du langage puis F1)
16/03/2019, 20h15
ashpo4

Le lire, c'est ce que je fais mais ce n'est pas compréhensible pour moi, j'ai du mal a comprendre.
Et pourquoi le mettre dans (cible) car c'est la dedans qu'on copie mes données

Citation:

Envoyé par Patrice740

Tu devrais reprendre entièrement la lecture du cours, conseillé par Menhir au post #12, depuis le début.
Il y a aussi l'aide qui est très bien fait (cliquer sur le mot du langage puis F1)
16/03/2019, 20h39
ashpo4
Je crois avoir trouvé donc j'ai effectué ce code et pour l'instant il fonctionne :
Code:

1 2 3 Range("A1").Value = ActiveSheet.Name Range("A1").Copy Worksheets(Cible).Range("A" & Cpt)
Par contre j'ai une autre question, pour faire ma boucle dans toutes les feuilles, on m'avait donné ce code que je suis en train de testé,
mais il ne lis pas mon onglet suivant.
Code:

1 2 Dim Onglet As Worksheet For Each Onglet In Worksheet
16/03/2019, 20h52
Patrice740
Citation:

Envoyé par ashpo4

Par contre j'ai une autre question, pour faire ma boucle dans toutes les feuilles, on m'avait donné ce code que je suis en train de testé,
mais il ne lis pas mon onglet suivant.

Il faut "fermer" la boucle; EDIT :
Code:

1 2 3 4 5 Dim Onglet As Worksheet For Each Onglet In Worksheets ' Ici le traitement de chaque onglet MsgBox Onglet.Name Next Onglet

Beaucoup d'imprécisions pour rien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub LeRappel()
Dim LastLig As Long, i As Long, Cpt As Long, Couleur As Long
Dim Onglet As Worksheet, wsRapp As Worksheet
 
Cpt = 6
Set wsRapp = Worksheets("Rappel")
For Each Onglet In Worksheets
    With Onglet
        If .Name <> wsRapp.Name Then
            LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
            If LastLig > 6 Then
                For i = 6 To LastLig
                    Couleur = .Range("D" & i).Interior.Color
                    If Date >= .Range("D" & i).Value And Couleur = 16777215 Then
                        wsRapp.Range("A" & Cpt).Value = .Name
                        wsRapp.Range("B" & Cpt).Resize(, 4).Value = .Range("A" & i).Resize(, 4).Value
                        Cpt = Cpt + 1
                    End If
                Next i
            End If
        End If
    End With
Next Onglet
MsgBox "Opération terminée"
End Sub

J'ai fait avec ce que je savais et ce que je comprenais...
Par contre pour le moment j'ai mis mon cpt > 12 mais après faut que je regarde ce sera lire toutes les lignes jusqu'à ce que je n'ai plus rien ecrit dedans...
Merci je testerais et regarderais un peu ce que tu as mis

Citation:

Envoyé par mercatog

Beaucoup d'imprécisions pour rien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub LeRappel()
Dim LastLig As Long, i As Long, Cpt As Long, Couleur As Long
Dim Onglet As Worksheet, wsRapp As Worksheet
 
Cpt = 6
Set wsRapp = Worksheets("Rappel")
For Each Onglet In Worksheets
    With Onglet
        If .Name <> wsRapp.Name Then
            LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
            If LastLig > 6 Then
                For i = 6 To LastLig
                    Couleur = .Range("D" & i).Interior.Color
                    If Date >= .Range("D" & i).Value And Couleur = 16777215 Then
                        wsRapp.Range("A" & Cpt).Value = .Name
                        wsRapp.Range("B" & Cpt).Resize(, 4).Value = .Range("A" & i).Resize(, 4).Value
                        Cpt = Cpt + 1
                    End If
                Next i
            End If
        End If
    End With
Next Onglet
MsgBox "Opération terminée"
End Sub

16/03/2019, 22h12
ashpo4
Oui le next je l'avais mis, désolé je ne les pas noté ici...
C'est bien le code que j'ai mis mais il me dit objet requis pour le for each...
Citation:
Envoyé par Patrice740

Il faut "fermer" la boucle;

Code:

1 2 3 4 5 Dim Onglet As Worksheet For Each Onglet In Worksheet ' Ici le traitement de chaque onglet MsgBox Onglet.Name Next Onglet

Voir 40 message(s) de cette discussion en une page