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.
1) Une macro qui permette de savoir quelle est la première cellule vide dans une colonne.

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.

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