reculer d'une colonne en VBA Résolu/Fermé

Question

Bonjour,  

je suis en train d'écrire une macro VBA, et j'aimerais savoir comment faire pour déplacer la cellule d'une colonne en arriére (passer de F4 à E4 par exemple)? Aprés plusieurs essais, je poste! 

voici le bout de code : 

If mois = "février" Then 
    Set envoi = range("F3:F34") 
    Set reponse = range("G3:G34") 
    For Each cell In reponse 
        If cell = "" Then 
        colomn -1 
        cell.Activate 
        ActiveCell = "relance effectué le " & Date 
        End If 
    Next cell 
    Exit Do 
    End If

merci d'avance 
Configuration: Windows XP / Internet Explorer 8.0

eriiic · Accepted Answer

Bonjour à tous,

pour revenir purement à la question de départ tu as la méthode .offset(lig,col)
Ca serait donc cell.offset(0,-1)=xxxx

eric

Heliotte · Answer

Bonjour,

Pour reprendre votre exemple passer de F4 à E4 par exemple:

C'est important pour le code .. faut-il juste copier la valeur de F4 en E4, puis supprimer le contenu de la cellule F4 ?

tragg · Answer

Bonjour Heliotte, 

en fait si la cellule de la colonne G est vide, je veux que dans la cellule de la colonne F, la date s'inscrive, puis que le test se poursuive sur la colonne G.
Par exemple :

   G3 a une date, on passe a G4.
   G4 est vide, on inscrit la date du jours en F4.
   G5 a une date, on passe à G6
  et ainsi de suite

Heliotte · Answer

Bonjour tragg,

Donc pas de copie !
Uniquement mettre la date en Fx si Gx = vide ?

Heliotte · Answer

Tragg,

Option Explicit
Public Sub VerifierDates()
    Dim i As Integer, LigMin As Integer, LigMax As Integer, NumCol As Integer
    '
    LigMin = 1
    LigMax = 100
    NumCol = 7 ' G
    '
    Columns("G:G").Select
    Selection.NumberFormat = "m/d/yyyy"
    For i = LigMin To LigMax
        If (Not IsDate(Cells(i, NumCol))) Then
            Cells(i, 6).Value = Format(Now, "DD/mm/yyyy")
        End If
    Next i
End Sub

tragg · Answer

merci eric, sa me permet de faire un clair beaucoup plus simple :

If mois = "mai" Then
    Set envoi = range("H3:H34")
    Set reponse = range("I3:I34")
    For Each cell In reponse
        If cell = "" Then
        cell.Offset(0, -1) = "relance effectué le" & Date
        End If
    Next cell
    Exit Do
    End If 

merci à vous deux!

Reculer d'une colonne en VBA

6 réponses

Discussions similaires