Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 vba : if... largeur sont à peu près égales...ok

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion tarvel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

tarvel

XLDnaute Occasionnel
J'aimerais comparer la largeur de 3 cellules (voir même 5 ( cellules) et si la largeur sont à peu près égales, valider la 3ème cellule en sélection :
Selection.Resize(Selection.Rows.Count + 2, Selection.Columns.Count + 4).Select
je laisse le fichier joint...macro avec résultat sur sheet2
En résumé comment valider avec des dimensions cellules approximativement égales?

Dim1 = Range("D1").Width

ActiveCell.Offset(0, -1).Select
Dim2 = Selection.Width
Dim2 = Round(Dim2, 0)

ActiveCell.Offset(0, -1).Select
Dim3 = Selection.Width
Dim3 = Round(Dim3, 0)
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Bonsoir,

Une piste :
Code: 
Sub Test()

    Dim Dim1 As Single
    Dim Dim2 As Single
   
    Dim1 = 100
    Dim2 = 104
   
    If Dim2 >= Dim1 * 0.95 And Dim2 <= Dim1 * 1.05 Then
        MsgBox "avec une valeur de '" & Dim2 & "' Dim2 est dans la plage des -5% / +5% de '" & Dim1 & "' de Dim1 !"
    Else
        MsgBox "avec une valeur de '" & Dim2 & "' Dim2 n'est pas dans la plage des -5% / +5% de '" & Dim1 & "' de Dim1 !"
    End If
   
    Dim2 = 94
   
    If Dim2 >= Dim1 * 0.95 And Dim2 <= Dim1 * 1.05 Then
        MsgBox "avec une valeur de '" & Dim2 & "' Dim2 est dans la plage des -5% / +5% de '" & Dim1 & "' de Dim1 !"
    Else
        MsgBox "avec une valeur de '" & Dim2 & "' Dim2 n'est pas dans la plage des -5% / +5% de '" & Dim1 & "' de Dim1 !"
    End If
  
End Sub
 
Vote positif 0 Vote négatif
Merci bxp Theze pour ta réponse
ça fonctionne bien...En fait il faut que je définisse le pourcentage de l'approximation des largeurs des cellules pour ainsi valider "la plage de cellules"...
J'ai testé avec du 10%...et ça me convient ;-)
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
Centrer automatiquement un rectangle créé avec des bordures avec VBA
Réponses
7
Affichages
2 K
Matta
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…