Valeurs identiques
Résolu/Fermé
lplaf
Messages postés
6
Date d'inscription
samedi 10 mai 2014
Statut
Membre
Dernière intervention
31 décembre 2015
-
19 juin 2014 à 14:39
lplaf Messages postés 6 Date d'inscription samedi 10 mai 2014 Statut Membre Dernière intervention 31 décembre 2015 - 20 juin 2014 à 13:24
lplaf Messages postés 6 Date d'inscription samedi 10 mai 2014 Statut Membre Dernière intervention 31 décembre 2015 - 20 juin 2014 à 13:24
A voir également:
- Quand on visite cette page, des messages sont échangés entre le navigateur et le site web. des extraits des messages échangés lors de la première connexion sont reproduits ci-dessous. des valeurs ont été remplacées par des numéros. retrouvez chacune de ces valeurs.
- Site pour vendre des objets d'occasion - Guide
- Comment récupérer des messages supprimés sur whatsapp - Guide
- Site de telechargement - Accueil - Outils
- Site pour partager des photos - Guide
- Gmail connexion - Guide
6 réponses
eljojo_e
Messages postés
1155
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 octobre 2022
154
Modifié par eljojo_e le 19/06/2014 à 16:03
Modifié par eljojo_e le 19/06/2014 à 16:03
Bonjour,
Une solution pour tester toute les cellules de la colonne A à Z.
C'est rustique : ) à adapter peu être
Le geek ne descend pas du métro, il libère la rame.
Sub test()
num = 1 'numéro de ligne
For a = 65 To 89 'de la colonne A à Y
For b = 66 To 90 'de la colonne B à Z
If a = b Then GoTo a: 'sinon ca test la meme cellule
If Range(Chr(a) & num).Value = "" And Range(Chr(b) & num).Value = "" Then GoTo a: 'ingnore les cellules vides
If Range(Chr(a) & num).Value = Range(Chr(b) & num).Value Then MsgBox ("Cellule " & Chr(a) & num & " identique à la cellule " & Chr(b) & num)
a:
Next
Next
End Sub
Une solution pour tester toute les cellules de la colonne A à Z.
C'est rustique : ) à adapter peu être
Le geek ne descend pas du métro, il libère la rame.
lplaf
Messages postés
6
Date d'inscription
samedi 10 mai 2014
Statut
Membre
Dernière intervention
31 décembre 2015
19 juin 2014 à 21:34
19 juin 2014 à 21:34
Comment faire si je ne veux pas que ce soit toujours la ligne 1 qui soit sélectionner mais la Active.Row en fonction de ou est ma cellule selectionné ?
Exemple je sélectionne A15 et je veux la meme analyse mais pour la ligne 15 ?
MERCI !
Exemple je sélectionne A15 et je veux la meme analyse mais pour la ligne 15 ?
MERCI !
eljojo_e
Messages postés
1155
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 octobre 2022
154
20 juin 2014 à 09:16
20 juin 2014 à 09:16
Et voilà !
Le geek ne descend pas du métro, il libère la rame.
Sub test()--
num = ActiveCell.Row
For a = 65 To 89 'de la colonne A à Y
For b = 66 To 90 'de la colonne B à Z
If a <= b Then GoTo a: 'sinon ca test la meme cellule
If Range(Chr(a) & num).Value = "" And Range(Chr(b) & num).Value = "" Then GoTo a: 'ingnore les cellules vides
If Range(Chr(a) & num).Value = Range(Chr(b) & num).Value Then MsgBox ("Cellule " & Chr(a) & num & " identique à la cellule " & Chr(b) & num)
a:
Next
Next
End Sub
Le geek ne descend pas du métro, il libère la rame.
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
Modifié par michel_m le 20/06/2014 à 11:06
Modifié par michel_m le 20/06/2014 à 11:06
Bonjour,
Excusez l'incrustre
peux tu avoir par ex
A1=4; D1=4; C1=7; H1=7 ?
et aussi
B1=8; E1=8;F1=8 etc.
Michel
Excusez l'incrustre
peux tu avoir par ex
A1=4; D1=4; C1=7; H1=7 ?
et aussi
B1=8; E1=8;F1=8 etc.
Michel
eljojo_e
Messages postés
1155
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 octobre 2022
154
Modifié par eljojo_e le 20/06/2014 à 10:48
Modifié par eljojo_e le 20/06/2014 à 10:48
Effectivement ça fonctionne pas.. celui la devrait fonctionner (j'espère)
Sub test()
num = ActiveCell.Row
For a = 65 To 90 'de la colonne A à Y
For b = 65 To 90 'de la colonne B à Z
If a <= b Then GoTo a: 'sinon ca test la meme cellule
If Range(Chr(a) & num).Value = "" And Range(Chr(b) & num).Value = "" Then GoTo a: 'ingnore les cellules vides
If Range(Chr(a) & num).Value = Range(Chr(b) & num).Value Then MsgBox ("Cellule " & Chr(a) & num & " identique à la cellule " & Chr(b) & num)
a:
Next
Next
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
Modifié par michel_m le 20/06/2014 à 12:35
Modifié par michel_m le 20/06/2014 à 12:35
Proposition avec repèrage couleurs
avec hypothèses marquées dans mon message de ce matin( plusieurs valeurs identiques et possibilité nombre de m^me valeur>2
https://www.cjoint.com/?3FumFNUrSCQ
en espèrant que....
Michel
avec hypothèses marquées dans mon message de ce matin( plusieurs valeurs identiques et possibilité nombre de m^me valeur>2
https://www.cjoint.com/?3FumFNUrSCQ
en espèrant que....
Michel
lplaf
Messages postés
6
Date d'inscription
samedi 10 mai 2014
Statut
Membre
Dernière intervention
31 décembre 2015
20 juin 2014 à 13:24
20 juin 2014 à 13:24
Merci énormément !!
19 juin 2014 à 19:05
Comment faire si je ne veux pas que ce soit toujours la ligne 1 qui soit sélectionner mais la Active.Row en fonction de ou est ma cellule selectionné ?
Exemple je sélectionne A15 et je veux la meme analyse mais pour la ligne 15 ?