Sélectionner une intersection de ligne et de colonne variable

Question

Je souhaiterai sélectionner l'intersection de n1 lignes et n2 colonnes via une macro ; En entré ; - une cellule contenant le nombre de colonne souhaité - une cellule contenant le nombre de ligne souhaité et je voudrai en sortie pouvoir sélectionner l'intersection de ces lignes et colonnes Exemple : nombre de lignes à sélectionner : 3 nombre de colonnes à sélectionner : 4 résultat on sélectionne de A jusqu'à D pour les 3 premières lignes. Est ce possible ? Bien à vous ...

xorsankukai · Accepted Answer

Bonjour hugo , le forum, Un essai .... Sub TESTTABLEAU() ' TESTTABLEAU Macro Dim var As Integer, shp As Shape, Fsource As Worksheet, Fdest As Worksheet Set Fsource = Sheets("Feuil4") 'Feuille source Set Fdest = Sheets("Feuil1") 'Feuille de destination Application.ScreenUpdating = False With Fsource 'agit uniquement sur cette feuille .Activate var = .Range("X15").Value .Range(.Cells(9, 1), .Cells(1, var)).Copy End With With Fdest 'agit uniquement sur cette feuille .Activate For Each shp In .Shapes If shp.Name = "IMG" Then shp.Delete 'efface IMG de Fdest Next shp With .Pictures.Paste 'agit sur la copie .ShapeRange.LockAspectRatio = msoFalse 'ne conserve pas le ratio .ShapeRange.Height = 380 'hauteur .ShapeRange.Width = 315 'largeur .Name = "IMG" 'nom .ShapeRange.Top = Fdest.Range("B7").Top 'positionnement sur B7 .ShapeRange.Left = Fdest.Range("B7").Left End With End With Application.CutCopyMode = False 'désactive la selection End Sub La macro est affectée au bouton de la feuille1 .... Cordialement...

fronck · Answer

Par macro, en bouton sélection sur la feuil1 Cdt...

xorsankukai · Answer

Bonjour hugobr , fronck , le forum, A tester .... Sub selection() Dim lig, col lig = Range("L1").Value 'cellule contenant le nombre de ligne col = Range("L2").Value 'cellule contenant le nombre de colonnes 'si l'une des cellules est vide, nulle où ne contient pas un nombre, message+ sortie de la procédure If Not IsNumeric(lig) Or Not IsNumeric(col) _ Or lig = "" Or col = "" _ Or lig &lt; 1 Or col &lt; 1 Then MsgBox "Veuillez saisir un nombre entier (supérieur à zéro) en L1 et L2": Exit Sub Sheets("Feuil1").Range(Cells(lig, 1), Cells(1, col)).Select End Sub Cordialement...

xorsankukai · Answer

Hou la, trop compliqué pour moi, je n'ai pas l'habitude d'utiliser des images sur excel..... Une piste néanmoins.... On connait la hauteur et la largeur de l'image de destination... Dim hauteur, largeur hauteur = ActiveSheet.Shapes.Range(Array("Picture 28")).Height largeur = ActiveSheet.Shapes.Range(Array("Picture 28")).Width 'MsgBox hauteur & " / " & largeur .....Il faudrait alors redimensionner l'image à coller.... Juste par curiosité: Pourquoi travailler avec des images et non pas les cellules directement ? Cordialement...

xorsankukai · Answer

Bonsoir Hugo , le forum, Comme je te le disais, je ne maitrise pas les images sur excel, mais comme je suis curieux, j'ai fait quelques tests.... On crée une image (nommée IMG) On la redimensionne pour qu'elle tienne dans le cadre On la positionne dans le cadre (j'ai fait correspondre le coin gauche du cadre avec C19). On efface et on recommence à chaque clic sur le bouton. Sub TESTTABLEAU() ' TESTTABLEAU Macro Dim var As Integer, shp As Shape var = Range("X15").Value Application.ScreenUpdating = False For Each shp In ActiveSheet.Shapes If shp.Name = "IMG" Then shp.Delete 'efface IMG Next shp Sheets("Feuil4").Range(Cells(9, 1), Cells(1, var)).Copy With ActiveSheet.Pictures.Paste .ShapeRange.LockAspectRatio = msoFalse 'ne conserve pas le ratio .ShapeRange.Height = 400 'hauteur .ShapeRange.Width = 322 'largeur .Name = "IMG" 'nom .ShapeRange.Top = &#91;C19&#93;.Top 'positionnement sur C19 .ShapeRange.Left = &#91;C19&#93;.Left End With Application.CutCopyMode = False 'désactive la selection End Sub Cordialement...

xorsankukai · Answer

Bonjour hugo , Merci pour le retour, A priori, non. A toi de trouver le bon réglage en adaptant la hauteur et la largeur (ici 400 et 322) pour que cela tienne dans ton cadre et en modifiant la cellule correspondant au coin haut gauche de ton cadre. Voici un exemple..... Tu remarqueras que le hauteur , la largeur et la cellule ont été modifiées pour s'adapter à la nouvelle image de destination... Cordialement...