Reculer d'une colonne en VBA

Résolu
tragg Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   -  
tragg Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

6 réponses

Réponse 1 / 6
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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
3
Réponse 2 / 6
Heliotte Messages postés 1491 Date d'inscription   Statut Membre Dernière intervention   92
 
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 ?
0
Réponse 3 / 6
tragg Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   1
 
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
0
Réponse 4 / 6
Heliotte Messages postés 1491 Date d'inscription   Statut Membre Dernière intervention   92
 
Bonjour tragg,

Donc pas de copie !
Uniquement mettre la date en Fx si Gx = vide ?
0
tragg Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   1
 
exactement
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Heliotte Messages postés 1491 Date d'inscription   Statut Membre Dernière intervention   92
 
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
0
tragg Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   1
 
merci, je le test!
0
Réponse 6 / 6
tragg Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   1
 
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!
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Excel VBA : Derniere colonne utilisée
Eaheru -
Darnc -

12 réponses
colonne A disparue tableur excel
reno78840 -
Anst20 -

4 réponses