[VBA] Coordonnées de cellule

Résolu/Fermé

yacleouf Messages postés 438 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 8 juin 2015 - 20 févr. 2013 à 17:58
yacleouf Messages postés 438 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 8 juin 2015 - 26 févr. 2013 à 13:27

Bonjour,

j'ai fais un programme en vba qui me permets de créer un fichier avec 3 colonnes

col1 col2 col3

et ceux avec beaucoup de données,
Mon traitement s'effectue comme suit :

l'utilisateur séléctionne 3 plages de données (avec un bouton refedit) par exemple :

première plage = "B1:I1"
Dexuieme plage = "A2:A9"
la troisième = "B2:I9" ==> c'est la zone comprise entre la première et la deuxième plage.

j'aimerais améliorer mon traitement en supprimant le choix de la troisième plage...

Mon soucis pour l'heure est que je ne sais pas comment choisir une cellule en particulier dans une Range .... (cela pour utiliser "offset")

Merci d'avance

A voir également:

Vba coordonnées cellule variable
Coordonnées gps - Guide
Vba range avec variable ✓ - Forum VB / VBA
Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide

6 réponses

Réponse 1 / 6

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
25 févr. 2013 à 12:41

Bonjour à tous,

Ben tu vois je pense avoir compris ta question mais ta réponse à une demande d'éclaircissement me dissuade de mettre ma proposition.
Aller je t'aide un peu quand même, ça commence bien par :
Set plage = plage2.Offset(...

eric

yacleouf Messages postés 438 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 8 juin 2015 39
25 févr. 2013 à 13:19

Merci pour le début de réponse!
sujet résolu

Réponse 5 / 6

via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
25 févr. 2013 à 15:06

Bonjour,

Les références données par Ref edit comporte des lettres et des $
On peut donc en manipulant les chaines de caractères récupérer les references de lignes et de colonneset concatener pour obtenir celle de la nouvelle plage
voilà la macro qui le fait :
Sub references()
a = "$B$1:$K$1"
b = "$A$2:$A$9"
' suppression du 1er $
aa = Right(a, Len(a) - 1)
bb = Right(b, Len(b) - 1)
' ref colonne deb plage finale (B)
r1 = Left(aa, 1)
' emplacements des : dans aa et bb
dpa = InStr(1, aa, ":")
dpb = InStr(1, bb, ":")
' emplacement du $ dans bb
dolb = InStr(1, bb, "$")
'ref ligne deb plage finale (2)
r2 = Mid(bb, dolb + 1, dpb - dolb - 1)
' parties droites des chaines apres les : et le $
aaa = Right(aa, Len(aa) - dpa - 1)
bbb = Right(bb, Len(bb) - dpb - 1)
' emplacement du 2Nd $ dans les parties droites
dolaaa = InStr(1, aaa, "$")
dolbbb = InStr(1, bbb, "$")
'ref colonne fin plage finale (K)
r3 = Left(aaa, dolaaa - 1)
'ref ligne fin plage finale
r4 = Right(bbb, Len(bbb) - dolbbb)
'concatenation des references
plage = "$" & r1 & "$" & r2 & ":$" & r3 & "$" & r4
End Sub

Cdlmnt

Discussions similaires

comment limiter le nombre de caractere dans une cellule

Afficher uniquements les cellules non vides

Excel VBA - Supprimer une plage de cellules

compter occurence d'un caractère

Calculer le nombre de cellules saisies avec le filtre

Impossible fusionner cellules

Discussions similaires

Newsletters