Macro sous Excel 2007 | ||
---|---|---|
Inscription: 05/10/2014
De Ajaccio
Messages:
10
Système d'exploitation: PC Version Excel utilisée: 2007 |
Posté le : 03-11-2014 14h43
Bonjour à tous & à toutes. j'ai un petit travail à faire sur Excel 2007, pour lequel j'aurai besoin d'un coups de pouce.
J'ai à réaliser plusieurs macros avec des fonctions de recherche et de lecture. 2) Une macro qui permette de savoir quelle est la dernière cellule pleine dans une colonne. 3) Une macro qui permette de savoir quelle est la première cellule vide dans une ligne. 4) Une macro qui permette de savoir quelle est la dernière cellule pleine dans une ligne.
5) Une macro qui écrive une valeur dans une cellule. 6) Une macro qui lise une valeur d'une cellule. 7) Une macro qui lise une propriété d'une cellule (ex n° de ligne, n° de colonne).
Si quelqu'un aurait quelques instants à m'accorder pour m'aider, je lui en suis reconnaissant par avance.
|
|
|
Re: Macro sous Excel 2007 | ||
---|---|---|
Inscription: 26/10/2014
De ST QUENTIN 02
Messages:
30
Système d'exploitation: PC Version Excel utilisée: 2003 |
Posté le : 06-11-2014 20h14
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
|
|
|