Comment delimiter une boucle a une partie de fichier

Question

Bonjour, 
J'ai un fichier Excel contenant les résultats d'une enquête d'évaluation avec  4 colonnes. Cette évaluation est donnée en termes de « content » et de « timing » pour les mêmes titres de sessions.
Chaque section a en colonne A l'intitule du theme suivi des titres.

Titres des sessions // note d'évaluation //Nb vote	//Calcul évaluation
In term of content
titre 1	//		5 : very good	//	3	//	=(3*5)+(2*4)+(4*3)	
titre 1	//		4 : good		//      2	//				
titre 1	//		3 : fair		//	4	//				

Titre 2 ....                     idem ......


In term of timing
titre 1	//		5 : very good	//	2	//	=(2*5)+(1*4)+(6*3)	
titre 1	//		4 : good		//      1					
titre 1	//		3 : fair		//	6					

Titre 2......                    idem .......

L'objectif est de calculer la valeur totale de l'évaluation pour chaque Titre de Session - valeur donnee dans colonne "Calcul evaluation" en 1ere ligne du titre.
Mon problème est de faire une boucle qui passe en revue tous les titres pour la première partie « content »  et refait ensuite le même traitement pour la 2eme partie « timing ».
Voici mon script... mais celui si ne sait pas s'arrêter quand il trouve la deuxième partie et donc il cumule les sommes puisqu'il retrouve titre 1 ...

Sub Proc55_concate_answer_note()Dim ws1 As Worksheet, i1, k, mSet ws1 = Worksheets("export-w1")'~~> Get last row in Col A in Sheet2i1 = ws1.Range("A" & Rows.Count).End(xlUp).RowWith ws1For k = 3 To i1    note = .Range("F" & k)    s_t = .Range("A" & k) 's_t contiemt le Session Title de la ligne k    ' je teste si la colonne A contient "Session (Start Time/ End time)" ou  "In term of timing"    If s_t = "" Or s_t = "Session (Start Time/ End time)" Or s_t = "In term of timing" Then    Else    For m = k + 1 To i1    s_t_next = .Range("A" & m) 'je stocke le session Title suivant         If s_t = s_t_next Then         ws1.Range("F" & k).Value = "=" & ws1.Range("F" & k).Value & "+" & ws1.Range("F" & m).Value         ws1.Range("G" & m).Value = "To delete"        End If    Next m    End IfNext kEnd WithEnd Sub

cs_ShayW · Answer

Bonjour

c'est du vba et non du vb.net 
fais attention la prochaine fois de poster dans la bonne rubrique 

' je teste si la colonne A contient "Session (Start Time/ End time)" ou  "In term of timing"
    If s_t = "" Or s_t = "Session (Start Time/ End time)" Or s_t = "In term of timing" Then    Else

tu testes mais tu ne fais rien avec

ucfoutu · Answer

Bonjour,
Je commence par déplacer la présente discussion qui n'a rien à faire dans la section VB.Net, puisque tu développes sous VBA !
Prends-en s''il te plait bonne note pour l'ouverture de prochaines discussions VBA (c'est important).

ucfoutu · Answer

C'est le genre d'application qui serait extrêmement simplifiée par l'utilisation toute bête de plages nommées.

Comment delimiter une boucle a une partie de fichier

3 réponses

Votre réponse

Discussions similaires