Transfert donné d'1e feuille à autrepr calcul
Bird
-
Bird007 Messages postés 12 Statut Membre -
Bird007 Messages postés 12 Statut Membre -
Bonjour,
Mon travail consiste à faire une boucle
J'ai une feuille qui contient les reel du CA, et CA est lié à un code analytique
Alors que dans une 2 ème feulle j'ai programmé sur excel de calculer des prevsion en se basant sur le code analytique renseigné dans une cellule
Ce que je veux faire à travers ma boucle, c'est de dire à chaque fois que je change mon code analytique, mon tableau de prevsion s'alimente automatiquement par le réel des donné correspondant au même code
J'ai essayé plusieurs alternatives et aucune ne marche
Merci de m'aider
Mon travail consiste à faire une boucle
J'ai une feuille qui contient les reel du CA, et CA est lié à un code analytique
Alors que dans une 2 ème feulle j'ai programmé sur excel de calculer des prevsion en se basant sur le code analytique renseigné dans une cellule
Ce que je veux faire à travers ma boucle, c'est de dire à chaque fois que je change mon code analytique, mon tableau de prevsion s'alimente automatiquement par le réel des donné correspondant au même code
J'ai essayé plusieurs alternatives et aucune ne marche
Merci de m'aider
A voir également:
- Transfert donné d'1e feuille à autrepr calcul
- Calcul km marche à pied gratuit - Télécharger - Sport
- Feuille de pointage excel - Télécharger - Tableur
- Feuille a5 - Guide
- Whatsapp transfert discussion - Accueil - WhatsApp
- Bruler feuille de laurier - Guide
2 réponses
Bonjour, c moi encore une fois
J'ai essayé avec ca ms ca n'a pas marché
Sub calcul_prevision()
Dim CA_feuil1 As String
Dim CA_feuil2 As String
Dim CPT As String
CPT = 10
CA_feuil1 = Sheets("CA(PS)").Range("B2").Value
CA_feuil2 = Sheets("Calcul_prevision(PS)").Range("C10").Value
Do Until CAf_euil1 = CA_feuil2
CPT = CPT + 1
CA_feuil1 = Sheets("Calcul_prevision(PS)").Range(CPT, 3)
Loop
Sheets("CA(PS)").Range "(CPT,7):(30,CPT)"
Selection.Copy
Sheets("Calcul_prevision(PS)").Select
Range("B9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("CA(PS)").Select
End Sub
aidezmoi SVP
J'ai essayé avec ca ms ca n'a pas marché
Sub calcul_prevision()
Dim CA_feuil1 As String
Dim CA_feuil2 As String
Dim CPT As String
CPT = 10
CA_feuil1 = Sheets("CA(PS)").Range("B2").Value
CA_feuil2 = Sheets("Calcul_prevision(PS)").Range("C10").Value
Do Until CAf_euil1 = CA_feuil2
CPT = CPT + 1
CA_feuil1 = Sheets("Calcul_prevision(PS)").Range(CPT, 3)
Loop
Sheets("CA(PS)").Range "(CPT,7):(30,CPT)"
Selection.Copy
Sheets("Calcul_prevision(PS)").Select
Range("B9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("CA(PS)").Select
End Sub
aidezmoi SVP
