Insertion d'une formule variant en fonction d'une condition Résolu/Fermé

Question

Bonjour,
J'aurais besoin de votre aide. J'aimerais faire une macro sur VBA mais je ne sais pas vraiment par où commencer. 
J'ai un tableau1 dans une feuille 1 dont chaque ligne représente un tuyau. J'ai associé à ses tuyaux un numéro de groupe en fonction de différents critères au total j'ai 179500 éléments et 438 groupes. Dans une feuille 2 j'ai un autre tableau dont chaque ligne représente un groupe et les colonnes des caractéristiques de ce groupe. Le problème est que je n'arrive pas à calculer l'une de ces caractéristiques : le type de sol. Le type de sol du groupe est le type de sol qui apparaît le plus souvent dans le groupe. Il existe au total 9 types de sol différents et ils sont au format numérique.



Je connais la fonction MODE qui permet d'obtenir le type de sol qui apparait le plus souvent dans une plage de donnée, mais je n'arrive pas à faire varier cette plage en fonction du numéro de groupe. C'est pourquoi j'ai pensé utiliser VBA et insérer dans chacune des cellules de la colonne type de sol du tableau 2 la fonction MODE mais en faisant varier les bornes de la plage de donnée, peut être avec une boucle for. Le problème c'est que je ne sais pas quoi mettre comme variable. Je suis un peu perdue.

Merci de votre aide

Pouschkine · Answer

Pour l'instant j'ai essayé ca mais cela m'indique une erreur

Remarque : k est le numéro de groupe, deb la premiere ligne de la plage de données et fin la derniere ligne de la plage de données

Pouschkine · Answer

Merci pour votre réponse :)

Par contre j'ai toujours une erreur : erreur 1004, application-defined or object-defined error.
Entre temps j'ai un peu changé le code, je pense avoir corrigé certaines erreurs mais apparement ce n'est pas suffisant.

Sub Soil_type()Dim k As Integer  'k est le numéro du groupeDim deb As Long  'deb la premiere ligne de la plageDim fin As Long   'fin la derniere ligne de la plage     k = 1    deb = 2        For i = 2 To 179515                 If Worksheets("sheet1").Cells(i, 18) = k Then            fin = i        Else            Cells(k + 1, 5).Formula = "=MODE.SNGL(sheet1!M " & deb & ": M " & fin & ")"            deb = i            k = k + 1        End If        NextEnd Sub

michel_m · Answer

Bonjour

je ne connais pas la fonction Mode.sngl (j'ai xl2007)
mais avec 179000 lignes, le pas à pas par cellule est extrèmement chronophage; il faut alors passer par des variables-tableaux 

edit 9:28H
pour tenter d'^tre efficace
Mettre un extrait du classeur ( env.1000 à 2000 lignes) sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci  proposé (clic droit) dans le message de réponse
Dans l'attente

 
 Michel

Insertion d'une formule variant en fonction d'une condition

3 réponses

Discussions similaires