Re: Macro sous Excel 2007 |
Titre du sujet : Re: Macro sous Excel 2007 par ericcool le 06/11/2014 20:14:13 Bonsoir le forum Bonsoir mimi2a
Ce n'est pas quelques instants pour moi mais plusieurs heures. J'ai bidouillé en VBA il y a longtemps en qualité de novice (Actuellement je suis à moins 10) mais j'ai réussi (enfin j'ai fait ce que j'ai pu) à réaliser ceci qui j'espère te conviendra. Après, il faudra attendre les autres forumeurs forumeuses pour paufiner. 1// Atteindre 1ère cellule vide dans colonne (Ici colonne A) Range("A1").End(xlDown).Offset(1, 0).Select 2// Atteindre dernière cellule remplie dans colonne (Ici colonne A) Range(« A » & [A65536].End (xlUp).Row).Select 3// Atteindre 1ère cellule vide dans ligne (ici ligne1) Range("IV1").End(xlToLeft).Offset(0, 1).Select 4// Atteindre dernière cellule remplie dans ligne (Ici ligne 1) Range("IV1").End(xlToLeft).Select 5// Ecrire dans une cellule Range(“A1”).Value = " Coucou " 6// Afficher le contenu d’une cellule Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("A1").Value = Target.Value End Sub 7// Afficher la position d'une cellule contenant une valeur (Ici "coucou") Sub positionMaCell() Dim x As Range, a As String, l As Integer, c As Integer Set x = Cells.Find("coucou", , xlValues, xlWhole, , , False) If Not x Is Nothing Then a = x.Address(0, 0) End If MsgBox (a) End Sub Bonne soirée
|
Forums