Discussion :

[Gautier Prosper]

Bonjour le forum.
Depuis quelques jours je cherche à trouver une macro qui va selectionner une ligne précise dont la première cellule (en colonne A) est activée. Mais donc le StartRange sera à partir de la colonne I et le EndRange sera la colonne non vide +1. L'intersection entre les deux plage sera considéré comme plage de travavail. On pourra donc conpter le nombre de colonnes de la plage puis multiplier par une valeur cobtenue dans la colonne H de la même ligne, puis comparer à la somme des valeurs comprise dans la plage.

[Gautier Prosper]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function arrieres() As String 
  Dim valReel As Long 
  Dim valtho As Long j = 1   
 
  Do While Worksheets(1).Cells(1, j).Value <> "" 
    If (Worksheets(1).ActiveCell.Offset(0, 2).Value = Cells(1, j).Value And Worksheets(2).Cells(1, 26).Value = Cells(1, j).Value) Then 
      Row.Select.Count Range("a27").Value = Row.Select.Count 
    End If 
    j = j + 1 
  Loop  
  varlreel = Application.WorksheetFunction.Sum(Rows.Select) 
  valtho = Row.Select.Count * Worksheets(1).Activate.Offset(0, 7).Value  
  arrieres = valtho - varlreel Range("a28").Value = arrieres 
End Function

[Philippe Tulliez]

Bonjour,
A condition d'avoir la première ligne et la première colonne remplie

• Vous enclenchez l'enregistreur de macro
• vous vous placez sur la première cellule du tableau (en haut et à gauche).
• vous utilisez le raccourci clavier ctrl + * (étoile du pavé numérique)

Voici le code généré

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Macro1()
    Range("A1").Select
    Selection.CurrentRegion.Select
End Sub

Comme il n'y a aucune raison d'utiliser la méthode Select, ni l'objet Selection et qu'il est préférable pour éviter des soucis par la suite, nous allons utiliser une variable objet en précisant la parentalité complète de l'objet Range

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro1()
 Dim rng As Range
 Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A1").CurrentRegion
 ' le code
 MsgBox "L'adresse de la plage occupe " & rng.Address
 ' Fin du process
 Set rng = Nothing
End Sub

Pour connaître le nombre de colonnes c'est MsgBox "Nombre de colonnes " & rng.Columns.Count

En convertissant votre plage en tableau structuré, c'est encore plus simple

A lire éventuellement

• Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)
• Excel: Les tables de données en VBA

[Gautier Prosper]

Merci Mr Philippe pour votre precieux temps que vous avez bien voulu m'accorder en me produisant quelques pistes de sorties.

Mais le souci c'est que je ne souhaite pas afficher uniquement le nombre de colonnes selectionnées. C'est une procédure qui doit être clôturée lorque l'application aura trouvée si le locataire cumule le arrièrés ou pas. Donc l'userform a dejà selectionné le nom du locataire en question. Il est maintenant question de determiner le le total des loyers qu'il a payé depuis l'occupassion des lieux en sommant les loyers mensuels versés par ce dernier(qui s'affichent sur la ligne en question), puis determier ce qu'il devrait verser en multipliant le nombre de colonnes represantant ici le nombre de mois par le loyer mensuel. La diferrence pourra être considérée comme arriérés.

Voilà en gros le problème à rèsoudre. Merci d'avance

[Philippe Tulliez]

Bonjour,
Je suis convaincu, qu'il n'est nul besoin de passer par du VBA pour obtenir ce type de résultat mais pour en être certain et pour pouvoir vous aider, il faudrait obtenir une image succincte de vos données pour que l'on puisse voir comment elles sont organisées ainsi que le résultat attendu.

[Gautier Prosper]

Hello!
Merci une fois de plus pour vos observations car grâce à cela, je trouve de jour en jour de nouvelles inspirations. Vous m'avez demandez d'apporter plus d'élements concrèts pour qu'une solution definitive soit trouvée à mon problème. J'ai fait des captures d'écran que vous trouverez en bas de ce texte. Comme je disais dans le commentaire précédent, l'objectif est de recuperer les informations contenues dans l'userform et renseigner dans la feuille1, en tenant compte de l'année selectionnée ainsi que du mois. C'est à partir de là que l'application renseigne cette date dans la cellule A501. I'équation qui reste à resoudre concerne celle d'afficher le montant des arriérirés sur l'userform. Et aussi renseigner le montant payer dans la feuille1 une fois valider.

Dans l'attente des vos observations, merci une fois de plus.

[Philippe Tulliez]

Bonjour,
Comme je l'avais écrit, une formule native peut résoudre ce problème. Au vu de l'illustration publiée la fonction DECALER pourrait faire l'affaire.

Cependant une meilleure organisation des données serait un plus.
Ainsi un tableau structuré contenant les données générales et un autre avec les payements simplifierait grandement le projet et éviterait de construire une usine à gaz

Dans l'illustration ci-dessous, on peut voir à gauche les données générales et à droite les payements de loyers
Pour éviter les homonymes, on prévoit dans les deux tables une clé qui est le résultat de la concaténation du nom et prénom des personnes

Dans le tableau de gauche,
le calcul du nombre de mois d'occupation est calculé dans la colonne Durée par la fonction

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=DATEDIF([@[Date d''entrée]];AUJOURDHUI();"m")+1

le total des loyers à percevoir (colonne Total loyer) est une simple multiplication

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=[@Durée]*[@Loyer]

le total reçu par personne à l'aide de la fonction SOMME.SI

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMME.SI(Tableau2[Key];[@Key];Tableau2[Montant])

le solde à payer avec une simple soustraction agrémenté par une mise en forme conditionnelle mettant en évidence les retards de payement

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=[@[Total loyer]]-[@[Total reçu]]

la rédaction de ma réponse a pris plus de temps que la création des formules



[EDIT]
et bien entendu, un tableau croisé dynamique en quelques clics pourrait nous permettre de présenter un tableau avec les payements par mois

[Gautier Prosper]

Hi Mr philippe merci pour vos explications
Le symbole @ est juste à titre indicatif ou c'est vraiment necéssaire dans la formule?

[Philippe Tulliez]

Bonjour,

Le symbole @ est juste à titre indicatif ou c'est vraiment necéssaire dans la formule?

Cela fait partie de la syntaxe des références structurées.

Je vous invite à lire les tutoriels sur la question dont j'ai déjà publié les liens dans ma première réponse (fil #3)

[Gautier Prosper]

Merci Mr Philippe pour vous orientations. Ça y est, problème résolu. merci à l'équipe.